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Introducción 


Reunir todos estos programas ha sido muy divertido; después de todo, no hay mucha 
gente que pueda estar jugando con el ordenador a todas horas y después decir que está 
trabajando. Y esto es justo lo que he hecho para recopilar estos programas. 

Hace un año se me ocurrió hacer una gran recopilación de juegos para ordenadores, así 
que decidí estar atento a los programas que en verdad aportaran algo interesante. 

Cuando encontraba algún juego que mereciera la pena añadirse a la colección, lo 
guardaba hasta que yo estuviera preparado para clasificar los programas en categorías, 
escribir las instrucciones, y —por supuesto— jugar con ellos otra vez. 

La obra ha sido ya realizada. Este volumen representa el mejor trabajo de un grupo de 
programadores ingleses con gran talento. Si lo que estás buscando es un libro con cantidad 
de juegos, aquí encontrarás lo que buscas. 

¡Buena suerte! 


Tim Hartnell 
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PARTE PRIMERA 


JUEGOS DE ACCION 


1. Carretera 


Seguro ya que conoces este juego, que fue tan popular en todas las salas de videojuegos 
hace un par de años. Pero por si se te ha olvidado de qué iba con el paso del tiempo, ahí van 
las instrucciones: 

En la pantalla hay dos coches, uno rojo y otro negro; el rojo está guiado por el 
ordenador y el negro por ti. También verás que la pantalla está llena de signos de sumar 
“+”. El objeto del juego es pasar por todos los signos “+” sin chocarte con el coche del 
ordenador. 
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Los controles de tu coche son: 


1.—Hace que tu coche cambie de túnel y se dirija al que es inmediatamente 
interior al que te encuentras en ese momento. 

0.—Hace que tu coche cambie de túnel y se dirija al que es inmediatamente 
exterior al que te encuentras en ese momento. 


Debes darte cuenta que SOLO PUEDES CAMBIAR DE TUNEL EN LAS INTERSEC- 
CIONES DE ESTOS; verás claramente dónde están las intersecciones de los túneles, porque 
en ellas no hay paredes. 

Tú tienes una considerable ventaja sobre el coche del ordenador, y es que mientras que 
este último sólo puede moverse un túnel por intersección, tú lo puedes hacer de dos en dos. 
Pero no todo son ventajas; si consigues acabar con todos los “+” de la primera pantalla, te 
aparecerá una segunda, que es exactamente igual que la primera; pero si terminas también 
con esta segunda, entonces aparecerá una nueva en la que el coche del ordenador irá con una 
velocidad igual al doble de la tuya, lo que hace la colisión casi inevitable; pero no te 
desanimes e intenta vencer al Spectrum. 
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eN 1 REM **CARRETERA** 30 GO SUB 6000: GO SUB 5000 O 
! 2 RANDOMIZE 40 G0 TOD 100 

ol 5 DEF FN A$(I)=CHR$ (32+(I<10 90 IF ATTR (PY,PX)<>48 THEN G | y 
| OR I>11 OR ST=10)*111) D TO 400 | 
¡ 10 DEF FN N(P)=P+(P=0)+*4-(P=5) 100 IF ATTR (PY+P(FN N(PP+1),2) |! 

O | *4 ,+PX+P(FN N(PP+1),1))<>49 THEN L !| O 
¡ 20 LET DIFF=1: LET SC=10 ET PP=FN N(PP+1) ! 
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110 PRINT — INK 23AT PY,PXp" "z 
LET PX=PX+P(PP,1): LET PY=PY+P(P 
P,2) 


120 IF PX>9 AND PX<12 OR PY>9 A 
ND PY<12 THEN LET I$=INKEYS$: IF 
I$<>"" THEN LET I$=CHR$ (CODE 
I$*NOT (PT=1 AND I$="0" OR PT=5 
AND I$="1")): LET PT=PT+(I$="1") 
=(I$="0"): LET D=(1$="1")x*2-(I$= 
10")*21 LET PX=PX+Dx*P(FN N(PP+1) 
s1)2 LET PY=PY+D*P(FN N(PP+1),2) 

: BEEP .01,5 
125 IF SCREENS (PY,PX)="+" THEN 
LET SC=SC+10: PRINT AT 3,23;5C 
: BEEP .1,9%: IF SC=2200*DIFF THE 
N LET DIFF=DIFF+1i: FOR I=1 TO 5 


1: BEEP .1,142: NEXT lz GO TO 30 
130 PRINT AT PY,PX3 INK O05CHR$ 
(143+PP) 


135 FOR I=1 TO DIFF-(DIFF=2»: 1 
F ATTR (CY,CX)<>50 THEN GO TO 4 
00 

140 IF ATTR (CY+P(FN N(CP-1),2) 
¿CX+P(FN N(CP-1),1))<>49 THEN L 
ET CP=FN N(CP-1) 

150 PRINT AT CY,CX3 INK 230$: L 
ET CX=CX+P(CP,1): LET CY=CY+P(CP 
12) 

160 IF CY=10 OR CX=10 THEN LET 

D=SGN (PT-CT): LET CT=CT+D: LET 

CY=CY+P(FN N(CP-1),2)*D*22 LET 
CX=CX+P(FN N(CP-4),1)*Dx*2 

170 LET O$=SCREENS (CY,CX)z PRI 
NT AT CY,CX3 INK 25CHR$ (143+CP) 
1 NEXT 1 

180 GO TO 90 

400 FOR I=1 TO 41 FOR J=1 TO 4: 

PRINT AT PY,PX3CHR$ (143+J)1 BE 
EP .1,-10: NEXT J: NEXT ls BEEP 
2,-30 

410 PRINT AT 2,73 FLASH 15"GAME 

OVER"3AT 19,2; "OTRA ? Y/N" 

412 INK 8: FLASH 8: LET I=10 

415 INVERSE 1: OVER 1: DIM B$(2 


2-12): FOR J=1 TO 21-1I: PRINT A 
T J,1;5B$: NEXT J:z INVERSE O: OVE 
RO 


420 IF INKEY$="" THEN LET I=I1- 
1+(I=0)*10: 60 TO 415 

430 IF INKEY$<>"N" AND INKEYS$<> 
"n" THEN RUN 

500 STOP 

4999 REM $484 LA PANTALLA dititie 
5000 INK 2: PAPER 6: BORDER 6: C 
LS 2: LET ST=0: LET EN=21 
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5020 INK 1: FOR 1I=ST TO ENz PRIN 

T AT ST, I5FN A$(1)35AT 1,ST3FN As 
(I)5AT EN, I5FN A$(I)5AT 1,EN5FN 

A$(I)2 NEXT lz INK 2: FOR I=ST+1 
TO EN-12 PRINT AT ST+1,13"+*"5AT 
1,ST+13"+"5AT EN-1,153"+"5AT 1,E 

N-15"+"g NEXT 1 

5030 LET ST=ST+2: LET EN=EN-2: 1 

F ST<11 THEN GO TO 5020 

5040 PRINT AT 1,233 INK 15 
1;"CARRETERA” 

5050 PRINT AT 4,24; 

s" 

5060 PLOT 180,143: DRAW 71,0: DR 

AW 0,10: DRAW -71,0: DRAW 0,-10 

5070 INK 12 PLOT 174,0: DRAW 79, 

O: DRAW 0,175: DRAW -79,0 

5080 LET M$="TU COCHE SE MUEVE 
EN EL SEN-TIDO DE LAS AGUJASD 
EL RELOJ. PASA POR LAS +.EVI-TA 

AL OTRO COCHE ” 

5090 OVER 1: FOR I=1 TO LEN M$ S 
TEP 10: PRINT AT 7+1/10,2253M$(1 
TO 1+9): NEXT I: OVER O 

5100 RESTORE 5110: DIM P(4,2): F 
OR I=i TO 42 READ P(1,1),P(1,2): 
NEXT I 

5110 DATA 0,-1,1,0,0,1,-1,0 

5120 LET 0O$="+"3: LET PX=10:2 LET 
ST=INT (RND*5)8 LET PY=20-ST*2: 
LET CX=11: LET CY=20-ST*2: LET P 
P=4: LET CP=2: LET PT=1+ST: LET 
CT=1+ST 

5130 INK 2: PRINT AT 20,233 "PANT 

ALLA"3DIFF 

5200 RETURN 

5900 REM $LOS GRAFICOS DEFINIDOS 

£000 RESTORE 4010: FOR I=0 TO 31 


FLASH 


INK 23 "PUNTO 


: READ Nr POKE USR "¡f/"+I,Nz NEX 
T Il: RETURN 

£010 DATA 90,126,90,24,60, 189,25 
5,189 

£020 DATA 224,71,242,255,255,242 
171,224 

£030 DATA 189,255,189,60,24,90, 1 
26,90 

£040 DATA 7,226,79,255,255,79,22 
6,7 


9000 FOR N=0 TO 31: FOR M=0 TO 2 


1: PRINT AT M,N3"x*": NEXT Mz: NEX 
TN 

9005 LET CY=2: LET CX=2: LET CP= 
2 


9010 LET O$=SCREEN$ (CY,CX): PRI 
NT AT CY,CX53 INK 23CHR$ (143+CP) 


Go 0 0 0 0 


2. La rana 


Seguro que conoces este juego sólo con oir el nombre. Sí, este es el mismo juego que 
había en las salas de videojuegos, antes de que se vieran invadidas por las máquinas 
tragaperras. 
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No merece la pena ni que te explique de qué va el juego, ya que apuesto a que lo sabes; 
pero, por si acaso, aquí van las instrucciones: 
Por si todavía no te acuerdas, aquí está la pantalla para que se te refresque la memoria. 
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00 


000 0 0 O 


1 REM **LA RANA+** 
8 RESTORE 
15 GO SUB 9000 
14 6D SUB 8000 
18 INK 7: BORDER O: PAPER 2: C 
Ls 
20 LET M=2: LET X=21: LET Y=15 
: LET SC=0: LET HS=0: LET P=1 
80 LET SC=0: LET P=1 
90 CLS 
100 LET M=2: LET X=21:2 LET Y=15 
101 PRINT BRIGHT 1;5"ORILLA: "3 
3" o: RANA: "5 FLASH 05 INK 7; 
“PUNTOS: "3SC3 BRIGHT O 
A 
A 
120 INK O: FOR N=2 TO 11: PRINT 
A a 
DECORO TA NAAA": NEXT ON 
130 INK 12 BRIGHT O: FOR N=14 T 
O 20: PRINT AT N, 15" NA DSRN NACER Na 
AN 
EXT N 
140 PRINT AT 19,35 INK 45 PAPER 
O 


150 PRINT AT 17,35 INK 45 PAPER 
15309 .—..-o  <sSsK|<.,]M<<.o»."soe 
160 PRINT AT 15,35 INK 43 PAPER 
A A E A 
170 INK 7 

200 FOR A=1 TO 8: BEEP .009,0 
202 IF X>1 AND x<12 THEN PRINT 
AT X,Y5 PAPER 03 INK 450? 
210 PRINT AT 3,A3 INK 65 PAPER 
03" MH E ES 

220 PRINT AT 4,A3 INK 65 PAPER 
5 u H H Ho 

230 PRINT AT 5,A3 INK 65 PAPER 
03" MH 3 HO HN 

240 PRINT AT 6,A3 INK 63 PAPER 
03" 5 HE qe 

250 PRINT AT 7,43 INK 65 PAPER 
O; ” HE $ HE qe 

260 PRINT AT 8,A3 INK 63 PAPER 
03" HE ES 

270 PRINT AT 9,A5 INK 65 PAPER 
03" 3 dE E E" 

280 PRINT AT 10,M5 INK 653 PAPER 

30 3 El H E 

295 GO SUB 1000 

300 LET X=X-M*(INKEYS$="7")2 1F 
INKEY$="7" THEN LET SC=SC+10 


301 PRINT AT 0,28;3SC 


310 LET Y=Y-M*(INKEY$="5" AND Y 
>2)+Mx (INKEY$="8" AND Y<29) 

311 PRINT AT X,Y53 BRIGHT 15 INK 
43",205 BRIGHT O 

315 GO SUB 1000 

316 PRINT AT X,Y; BRIGHT 15 INK 
45"x"5 BRIGHT O 

320 NEXT A 

400 FOR A=8 TO 1 STEP -1: BEEP 
. 009,0 


402 IF X>1 AND X<12 THEN PRINT 


AT Xx 


,»Y5 PAPER 05 


410 PRINT AT 3,A5 INK 


03" 


O; " 


430 PRINT AT 5,A;5 


E dE 
H 


Oj" HE Hi 
440 PRINT AT 6,43 INK 


Hi 


HE 
Mi 


450 PRINT AT 7,A5 INK 
O; ” Hi 


460 PRINT AT 8,A;5 


03" 


Hi 


Hi 


Ho" 


INK 6; 


INK 45"40 


63 PAPER 
HE He Es 
420 PRINT AT 4,A5 INK 


63 PAPER 
dá E 5 


Hs E 


63 PAPER 


.»" 


63 PAPER 


HE E 
INK 63 PAPER 


470 PRINT AT 9,5 INK 63 PAPER 
03" HE di 


480 PRINT AT 10,45 


03" 


HE 


H 


HE MH 


INK 65 


Ho" 
HE 


PAPER 


490 PRINT AT X,Y3 INK 43 BRIGHT 
"3 BRIGHT O 
495 GO SUB 1000 
500 LET X=X-Mx* (INKEY$="7"): 
$="7" THEN LET SC=SC+10 
501 PRINT AT 0,28;S5C 


5 "ab 


INKEY 


510 LET Y=Y-M*(INKEY+$="5" 
22) +Mx* (INKEY$="8" 
511 PRINT AT X,Y5 


45"5 BRIGHT O 
515 GO SUB 1000 


516 PRINT AT X,Y5 


45""5 BRIGHT O 


5320 


NEXT A 


530 GO TO 200 
600 PRINT AT X,Y-25"PLOP!"s 
N=530 TOD 1 STEP -B: BEEP .05,N: 


NEXT 


N 


AND Y<29) 
BRIGHT 15 


BRIGHT 1; 


IF 


AND Y 


INK 


INK 


FOR 


610 IF SC>HS THEN LET HS=SC 


620 PRINT AT 21,45 


SA UNA TECLA PARA EMPEZAR": 


E O: 
TO 80 


630 PRINT AT 21,45 


PAUSE 0: 


PAUSE 0: 


CLS : 


FLASH 15 


FLASH 13 "PUL 


PAUS 
60 


"PUL 


SA UNA TECLA PARA EMPEZAR": PAUS 


E O: 


PAUSE O:2 


PAUSE O: 


CLS : 
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TO 80 

1000 IF X>13 AND X<20 THEN PRIN 
TAT X,Y5 PAPER 13"ap" 

1001 IF X<12 AND X>i THEN PRINT 
AT X,Yj PAPER 03" " 


1002 IF X=12 OR X=13 OR X=21 THE 
N PRINT AT X,Y3 PAPER 23" " 
1003 IF X<2 THEN GO TO 7000 
1004 IF X<14 THEN LET M=1 

1005 IF X<15 OR X>19 THEN GO TO 


IF Y=2 OR Y=6 OR Y=9 OR Y=1 
Y=15 OR Y=18 OR Y=21 OR Y=2 
Y=27 THEN RETURN 


y 
o 
o 
o 
o 


- 

e] 
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Y=A+10 OR Y=A+1 
Y=A+21 THEN GO TO 4000 
RETURN 
3100 IF Y=A+1 OR 
OR Y=A+20 THEN 
3110 RETURN 
3200 IF Y=A+5 OR 
TO 4000 
3210 RETURN 
3300 IF Y=A+1 OR 
8 OR Y=A+21 THEN 
3310 RETURN 
3400 IF Y=A+2 
9 THEN GOD TO 
3410 RETURN 
3500 IF Y=A+1 
OR Y=A+18 OR 
4000 
3510 RETURN 
3600 IF Y=A+4 
8 THEN GO TO 
3610 RETURN 
3700 IF Y=A+2 
OR Y=A+17 OR 
4000 
3710 RETURN 
4000 PRINT AT X,Y-25"SPLAT": 
P 1,10: FOR N=10 TO -10 STEP 
BEEP .01,N: NEXT N 
4020 PRINT AT 21,43 FLASH 15 "PUL 
SA UNA TECLA PARA EMPEZAR": PAUS 
E O: PAUSE O: PAUSE O: CLS 2 GO 


Y=A+7 OR Y=A+13 
GO TO 4000 


Y=A4+12 THEN GO 
Y=A+10 OR Y=A+1 
GO TO 4000 


OR Y=A4+11 OR Y=A+1 
4000 


OR Y=A+6 OR Y=A+14 
Y=A+21 THEN GO TO 
OR Y=A+10 OR Y=A+1 
4000 

OR Y=4+6 OR Y=A+11 
Y=A+21 THEN GO TO 


BEE 
-11 
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TO 80 
7000 IF Y=4 OR Y=12 OR Y=20 OR Y 
=27 THEN G0 TO 7500 
7010 PRINT AT X,Y-3;"FALLO!"* FO 
R F=1 TO 3: BEEP .09,8: BEEP .75 
,12: BEEP .03,8: BEEP .03,6: BEE 
P .03,4: BEEP .02,2: PAUSE 10: N 
EXT F 
7011 BEEP .04575,25: BEEP .045,2 
O: BEEP .0275,15: BEEP .03,10 
7030 PRINT AT 21,43 FLASH 13"PUL 
SA UNA TECLA PARA EMPEZAR": PAUS 
PAUSE O: PAUSE O: CLS 1 GO 
TO 80 
7500 PRINT AT X,Y-43"LO HICISTE" 
: FOR F=1 TO 3: BEEP .02,2: BEEP 
.03,4:1 BEEP .03,6: BEEP .03,8: 
BEEP .075,12: BEEP .09,8 
7501 PAUSE 10: NEXT F 
7502 BEEP .03,10: BEEP .0375,151 
BEEP .045,20: BEEP .04575,251 B 
EEP .049,15 
7510 PRINT AT 21,23 FLASH 15 "PUL 
SA UNA TECLA PARA CONTINUAR": PA 
USE O: PAUSE O: PAUSE 0: LET P=P 
+1: LET SC=SC+50: CLS : GO TO 90 
8000 BORDER O: PAPER O: INK 7: C 
Ls 
8005 PLOT 0,0: 
255,0: DRAW 0,-175: 
8010 PRINT AT 1,10; 
RANA 2 INK 7 
8020 PRINT " EL OBJETIVO DE ESTE 
JUEGO "5 INK 7: PRINT "ES LLEVA 
R A LA RANA SALTANDO""3 INK 43":2 
"5 INK 753"*": PRINT "SOBRE LAS H 
OJAS DE NENUFAR “"5 INK 43"4pv"; 


DRAW 0,175: DRAW 
DRAW -255,0 
INK 43": LA 


INK 7 
8030 PRINT " EVITANDO A LOS COCH 
ES “3 INK 6333 INK 73%": PR 
INT "QUE VAN CAMBIANDO DE DIRECC 
ION" 

8040 PRINT "HASTA LLEGAR A CASA 
0. 
8050 PRINT 2 PRINT " 7=A 
RRIBA": PRINT " 8=DERECHA, 5= 
IZQUIERDA" 


8051 PRINT " NO PUEDES SALTAR R 
APIDO EN": PRINT "LA CARRETERA " 
3 INK 23"TEN CUIDADO" INK 7 


8060 PRINT : PRINT "TE DAN 10 PU 
NTOS POR " 
8070 PRINT "CADA MOVIMIENTO HACI 


"SI TU RANA 
PRINT "OB 
13" 


A DELANTE Y": PRINT 
LLEGA A CASA A SALVO": 
TENDRAS"52 PRINT — FLASH 


O 


O a0o.o0 
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UN BONO DE 50..." 


8080 OVER 11 PRINT : PRINT " 

RANA="3 BRIGHT 13 INK 45"::"5 BR 

IGHT 05 INK 73 

8090 PRINT : PRINT "  NENUFAR="3 
INK 45%0w"5 INK 75 

B100 PRINT " COCHE="5 INK 65" 

“5 INK 7; 

8110 OVER O: PLOT 0,0: DRAW 0,17 

5 


8120 PRINT AT 20,2; 
ENTER PARA COMENZAR": 

PUT Q$ 

8130 FOR F=1 TO 3: BEEP .02,2: B 
EEP .03,4:2 BEEP .3,6: BEEP .03,8 
: BEEP .075,12: BEEP .09,8 

8140 PAUSE 10: NEXT F 

8150 BEEP .03,10: BEEP .0375,15: 
BEEP .045,20: 


INK 5; "PULSA 
INK 7: IN 


BEEP .04575,25: B 


EEP .049,15 

8160 RETURN 

8997 PLOT 0,0: DRAW 0,175 
8998 STOP 
8999 RETURN 
9000 FOR F=0 
USR "2"+F,C: 
9010 FOR F=0 
USR "H"+F,C: 
9020 FOR F=0 
USR "L"+F,C: 
9025 RETURN 
9030 DATA 24,60,90,90,60,66,129, 
o 

9035 DATA 119,34,126,63,63,126,3 
4,119 

9050 DATA 0,640,126, 126,126,60,8, 
14 


TO 7: READ C: 
NEXT F 
TO 7: READ C: 
NEXT F 
TO 7: READ C:z 
NEXT F 


POKE 


POKE 


POKE 
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3. Correcaminos 


Suponte ahora que estás en el desierto, que eres un correcaminos, y que tienes que llegar 
a tu casa lo más rápido posible. Ahora que ya te has introducido en el juego, te voy a 
explicar de qué va: 

Tienes que recorrer una carretera dividida en diez sectores diferentes; debes guiar al 
correcaminos por esta carretera usando las teclas: 


Z—Para bajar. 
Q—Para subir. 


Como la carretera es tan larga, sólo puedes ver la determinada sección en que te 
encuentras en cada momento determinado. Cuando llegues al final de esa sección, aparecerá 


p 
2 
09 
E. 
o 
5 
ex 
o 


> AI 


FA 
Eaea ESE E 
Ea 2 o ERES, ER, ERES EE 
ps ce q , Palla Hi alrcula iy dE a a ja a po e 17 sE, 3 q 
PS Ñ asa a BORRAR EE y Ñ E 
L— e, 120 le ¿AT 3l enla 


a 


A 


sto A 


E : 


Te va a resultar francamente difícil llegar al final de la décima sección, por eso te 
aconsejo que te vayas armando de paciencia; y procura no pegarle un golpe al Spectrum 
cuando en la última sección veas que el final ya está cerca y te choques tontamente. 

Buena suerte. 


AN 


o! REM *CORRECAMINOS*+* 160 FOR X=1 TO 90 
| 5 GO SUB 320 : 170 NEXT X | 
¡10 LET N=10 175 LET X=0 

O ¡| 20 FOR T=1 TO 10 180 FOR X=0 TO 31 ; 
30 CLS 190 LET Y=Y+(INKEYS$="Z")-(INKEY | 

O' 35 PLOT 39,71 DRAW 0,25: DRAW | $="0") O 
/ 65,0: DRAW 0,-25: DRAW -65,0 200 IF SCREENS (Y,X)="X" THEN | 

o | _36 PRINT AT 18,53 INK 33 PAPER | 60 TO 300 Le 
—73"Q"3 INK 23" ARRIBA" 210 PRINT AT Y,X3 INK 23 "25" 
37 PRINT AT 19,55 PAPER 75" 215 BEEP .1,X 

O! "; PRINT AT 20,53 INK 33 PA | 216 PRINT AT Y,X3 INK 23"." 1 O 
; PER 73"Z"5 INK 25" ABAJO " 220 NEXT X ] 

oO: 40 PRINT AT 15,73 INK 2, FLASH | 260 NEXT T to 
; 13 "SECCION "¿T5AT 0,1; 270 PRINT AT 20,45 INK 63 PAPER | 
; 80 LET Y=1 O; FLASH 13"LO HICISTE!": GO TO ¡ 

O | 90 FOR X=0 TO 31 ; 315 ¡O 
95 PRINT INVERSE 13 INK 15AT 300 FOR Z=-10 TO 40: BEEP .008, ' 

O 1 Y, X5"X"5AT Y+4,X3"X" Z: BEEP .008,40-Zz NEXT Z O 
100 LET Y=Y+INT (RND*3)-1 310 PRINT AT 15,43 INK 63 PAPER 

o | 110 IF Y<1 THEN LET Y=1 05 FLASH 13"TE HAS CHOCADO! ! Le 
| 120 IF Y>N-3 THEN LET Y=N-3 a 
l 130 NEXT X 315 FOR G=1 TO 501 BEEP .005,6: ' 

O | 155 LET Y=3 NEXT G Ko) 
| 156 LET X=0 316 PRINT "OTRO JUEGO? S/N" 

O 1 157 PRINT AT Y,X3 INK 23 "2" 317 IF INKEY$="" THEN GO TO 31 1: / 


¡o 


O 
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318 IF INKEY$<>"N" OR INKEY$<>" 
n" THEN RUN 

319 STOP 

320 REM DEFINICION DEL U.D.G. 
330 FOR G=0 TO 7 


340 READ M 
350 POKE USR "5"+G,M 

360 NEXT G 

370 RETURN 

380 DATA 129,102,40,255,90,255, 
129,231 


! 
1 
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4. Laberinto 


El Spectrum te ha metido en un laberinto del que tienes que salir si deseas conservar 
la vida. Pero en este laberinto no estás solo, allí hay un inquilino, un fantasma, cuyo aspecto 
te resultará conocido. Este fantasma te perseguirá y tendrás que evitar que te alcance, porque 
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si no lo haces el fantasma tendrá una cena suculenta hecha de ti. Para moverte por el 
laberinto tienes que usar las teclas: 


Q—Para subir. 

A—Para bajar. 

N—-Para ir a la izquierda. 
M-—-Para ir a la derecha. 


Como supondrás, si el fantasma te alcanza, el juego se acaba, ya que el alcanzarte 
significa que te habrá comido. Pero tú no estás indefenso frente a él, ya que cuando te comes 
uno de los asteriscos que aparecen en la pantalla tendrás la posibilidad, durante un corto 
espacio de tiempo, de comerte al fantasma. 

El laberinto, como verás, está lleno de puntos; cada vez que te comas uno, tu puntua- 
ción aumentará. 

El programa tiene todas las instrucciones completas del juego. Por si no te sientes con 
fuerzas para copiarlas todas, aquí te las doy. 


AT a e O 


SAURA RA 
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ATA A 


' 
Eee GRAFICO A me 


Fa 


Y e BEE ICO ES 


1 REM **LABERINTOX* 8 CLS o 
2 BORDER 6: PAPER 7: CLS 10 FOR X=0 TO 31: FOR Y=1 TO 2 | 
5 LET T=0: LET P=0: LET ENERG | 1 
:; IA=O 20 LET Z=INT (RND*10)+1 ¡o) 
6 GO SUB 8000 30 IF Z=2 OR Z=6 OR Z=9 THEN 
! 7 GO SUB 9050 PRINT— INK 25 BRIGHT 15487 Y,X3"M ' p 
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O 0. 0 -U 


GO TO 50 

40 PRINT — INK 153AT Y,X3"." 

50 NEXT Y: NEXT X 

60 FOR Z=1 TO 6: PRINT — INK 35 
FLASH 1347 RND*21,RND*313"x*":z N 
EXT Z 


200 LET V=20: LET W=30: LET X=1 
O: LET XX=10: LET Y=10: LET YY=1 
(o) 

202 PAPER 7 

210 PRINT  INK O5AT 0,03" 

"' 

220 PRINT  INK O5AT 0,05 "ENERGI 
A1"5AT 0,153 "PUNT: " 

230 INPUT "PULSA ENTER PARA EMP 
EZAR"35S$ 


250 PRINT AT Y,X3" " 

300 LET YY=YY+(INKEY$="A" AND Y 
Y<=20)-(INKEY$="0" AND YY>0) 

320 LET XX=XX+(INKEY$="M" AND X 
X<=30)-(INKEY$="N" AND XX>0) 

330 IF ATTR (YY,XX)=122 THEN L 
ET XX=X: LET YY=Y8* GO TO 300 

3359 IF SCREEN$ (YY,XX)="x" AND 
ENERGIA=0 THEN LET ENERGIA=ENER 
GIA+50 

340 IF SCREENS (YY,XX)="." THEN 

LET P=P+1: BEEP .05,25 

370 LET X=XX: LET Y=YY 

3735 PRINT — INK OjAT YY, XX3 "of" 
380 IF ENERGIA>0 THEN LET ENER 
GIA=ENERGIA-1 


385 PRINT AT 0,203" "¿AT 0,23 
3P 

390 PRINT AT 0,103" "AT 0,1 
03 ENERGIA 


400 GO SUB 1000 

500 GO TO 250 

1000 LET Z=RNDx*4 

1001 IF Z=1 OR Z=2 THEN PRINT 


INK 23 BRIGHT 15AT V,W;5"BH"* GO 
TO 1004 
1003 PRINT  INK 15AT V,W5"." 


1004 IF ENERGIA>0 THEN GO TO 10 
10 

1005 LET R=V-YY: LET S=W-XX: LET 
T=T+1: IF T=200 THEN (GO TO 400 
0 

1006 IF SGN R=1 THEN LET V=V-1 
1007 IF SGN R=-1 THEN LET V=V+1 
1008 IF SGN S=-1 THEN LET W=W+1 
1009 IF SGN S=1 THEN LET W=W-1 
1010 LET W=W+(INT (RND*4)-2): LE 
T V=V+(INT (RND*4)-2) 

1011 IF V<O THEN LET V=0 

1012 IF W<0 THEN LET W=0 
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1013 IF W>31 THEN LET W=31 

1014 IF V>21 THEN LET V=21 

1020 PRINT INK 03 OVER 13AT V,wW 
q 

1025 IF XX=W AND YY=V AND ENERGI 
A<1 THEN GO TO 2000 
1026 IF XX=W AND YY=V 

A>0 THEN LET P=P+50: PRINT  INK 
03 PAPER 6; FLASH 15AT 0,03 "xxx 

*erTE LO HAS ZAMPADOx0 xx": FO 

R Z=10 TO 30: BEEP .05,Z: NEXT Z 
: GO TO 200 

1030 RETURN 


AND ENERGI 


2000 CLS : PRINT : PRINT  INK 05 
PAPER 63 FLASH 13"TE HA COMIDO” 
“*PUNTOS="5P: GO TO 9000 

4000 CLS : PRINT : PRINT  INK 05 
PAPER 63 FLASH 15"SE ACABO TU T 
IEMPO “““ PUNTUACION="5P: GO TO 
9000 

8000 FOR I=USR "A" TO USR "B"+72 
READ N:z POKE 1,N: NEXT lz RETUR 

N 


B010 DATA 28,62,121,240,240,121, 
£2,28,56,124,218,146,254, 254,254 


» 170 

9000 INPUT "PULSA ENTER PARA JUG 
AR OTRA VEZ"3S$ 

9010 RUN 

9050 REM INSTRUCCIONES 

9060 CLS : PRINT " INSTRU 
CCIONES" S 
9070 PRINT : PRINT "SE GENERA UN 


LABERINTO ALEATO- RIAMENTE EN 
EL QUE TU (4) TE VE-RAS PERSEGUI 
DO POR EL FANTASMA — (íh). TE MUEV 
ES EN EL LABERINTO USANDO LAS T 
ECLAS:" 


9073 PRINT " Q-SUBIR": PRINT 
” A-BAJAR"»* PRINT " N-I 
RA LA IZQUIERDA": PRINT " M 


-IR A LA DERECHA" 

9080 PRINT : PRINT "SI TE COME E 
L fi SE ACABA EL JUE-G0... PERO 
TU TIENES UNA OPCION FRENTE A EL 
-.QUE CONSISTE EN QUE AL TOMARTE 
LA ASPIRINA (%*) ERES CAPAZ DE CO 
MERTE AL FANTASMA (PERO TEN C 
UIDADO PORQUE EL EFECTO PASA PRO 
NTO)" 

908353 INPUT 
TINUAR"3G%$ 
9090 PRINT AT 12,033 PRINT " IR 
A AUMENTANDO TU PUNTUACION CADA 
VEZ QUE PASES POR UN PAQUE-TE D 
E COMIDA (.)...BUEN PROVECHO" 


"PULSA ENTER PARA CON 
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9095 FOR N=0 TO 32 PRINT " TINUAR"5G% ¡ o 
"3 NEX 9110 RETURN 


¡ 
¡TON 
1 
U 


9100 INPUT "PULSA ENTER PARA CON 
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5. Batalla de tanques 


En este programa para dos jugadores, escrito por R. Blake, debes hacer gala de toda tu 
estrategia y astucia, ya que con tus disparos debes alcanzar al tanque enemigo y evitar que 
los de éste te den a ti. Cada vez que alcances al otro tanque, tu puntuación aumenta en una 
unidad; el ganador de la batalla es el tanque que antes llegue a los nueve puntos. 


El a 5 


DI SI 0 IS MS 


a 


Mella 1 E A E O AECE 


w 


0] 


Cuando uses el programa verás que si pulsas dos teclas diferentes, que indiquen al juego 
que realice dos acciones, éste las realiza las dos, no como ocurre normalmente, que sólo 
realiza una. Esto es debido a que en vez de usar la sentencia INKEYS$ para leer el teclado, 
usa IN, que lee el teclado de tal forma que el programa, por medio de unas sentencias IF 
(bifurcaciones condicionales), puede ver si se está pulsando más de una tecla a la vez, qué 
teclas se están pulsando, y las acciones que el programa debe realizar según qué tecla o teclas 
se pulsen. 

Las teclas que dirigen los tanques son: 


TANQUE DE LA IZQUIERDA: 


2—Para subir. 
S—Para bajar. 
Q—Para ir a la izquierda. 
E—Para ir a la derecha. 


TANQUE DE LA DERECHA: 


9—Para subir. 
L—Para bajar. 
I—Para ir a la izquierda. 
P-——Para ir a la derecha. 
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1 REM 
2 BORDER 6: PAPER 7: INK Oz € 
LS 

S BORDER 6: 
CLS 

10 LET A$=""2 LET B$="¡4"2 
C$=""2 LET Ds$="¡4" 

20 FOR I=1 TO 5: READ P$: FOR 
J=0 TO 7: READ P: POKE USR P$+J, 
Pz NEXT J:2 NEXT 1 

30 GO SUB 1000 

40 LET L=03 LET R=0: 
LET PL=0 

SO LET Xi=11: 
=11: LET Y2=29 

60 PRINT AT 0,23 INK 153"IZQUIE 
RDA=0"35AT 0,233 INK 23 "DERECHA=0 


PAPER 7:22 INK O: 


LET 


LET S=0: 


LET Yi=2: LET X2 


70 PRINT AT X1,Y13 INK 13B$5AT 


* BATALLA DE TANQUES +* 


X2,Y25 INK 23DS$ 

80 BEEP .2,12: BEEP .2,241 BEE 
P..2,12: BEEP .2,24: BEEP .8,0 
200 IF IN 63486=253 THEN LET A 
$="7"1 LET Bé="pL" 
205 IF IN 64510=254 THEN LET A 
$="5"; LET B%= Ed 
210 IF IN £4510=251 THEN LET A 
$="8"1 LET B$="3e" 
215 IF IN 45022=253 THEN LET A 
$="6"3 LET Bé="51p" 
220 IF IN 61438=253 THEN LET C 
$= "”7"g LET D$=" He ”n 
225 IF IN 57342=251 THEN LET C 
="5"2 LET Dé="<5" 
230 IF IN 57342=254 THEN LET C 
$="8": LET Dé$="3ie" 
235 IF IN 49150=253 THEN LET C 
$="5": LET Dé="5py" 
240 BEEP .015,-10 


250 PRINT AT X1,Y153" 


260 LET Xi=X1+(A$="5")-(A$="7'") 
2 LET Yi=Y1+(A$="8")-(A$="5") 


270 IF SCREEN$ 


LET Xi=X1-(A$="6")+(A4$="7")3 


ET Yi=Y1-(A$="8")+(A$="5") 


280 PRINT 


300 PRINT AT X2,Y2;" 


AT X1,Y1; 


INK 15B$ 


(X1,Y1)="%" THEN 


L 


310 LET X2=X2+(0$="6")-(C$="7') 
2: LET Y2=Y2+(C$="8")-(C$="5") 
320 IF SCREEN$ (X2,Y2)="4" THEN 
LET X2=X2-(C$="6")+(C$="7"): L 
ET Y2=Y2-(C$="8")+(C$="5") 
330 PRINT AT X2,Y25 INK 2;3D$ 
340 IF IN 63486=254 THEN LET P 
L=1: LET X$=B$: LET XX=X1: LET Y 


Y=Yi" GO SUB 700 
350 IF IN 61438=251 THEN LET P 


L=22 LET X$=D$: LET XX=X2: LET Y 
Y=Y2: GO SUB 700 

650 LET A$="": LET C$=""* GO TO 
200 


720 LET X=(X$=""w")-(X$="4")2 L 
ET Y=(X$="3%")-(X$="=>3") 

750 LET XX=XX+X: LET YY=YY+Y 
760 IF SCREENS (XX, YY)="4" THEN 

FOR I=1 TO 30: BEEP .01,0: NEX 

T 1: RETURN 

770 IF ATTR (XX,YY)<>120 THEN 
GO TO 850 

780 PRINT AT XX,YY3"+."s 
02,30 

790 PRINT AT XX,YY3" "2 60 TO 7 
50 

850 IF ATTR (XX,YY)=57 THEN LE 
T R=R+1: PRINT AT 0,293 INK 25R; 
AT X1,Y15 INK 15 FLASH 15B$ 

860 IF ATTR (XX,YY)=58 THEN LE 
T L=L+1: PRINT AT 0,125 INK 13L5 
AT X2,Y23 INK 23 FLASH 13DS 

870 FOR I=-20 TO 40: BEEP .01,1 
: NEXT 1 

880 PRINT AT X1,Y15" "5AT X2,Y2 
pa LET Bs="/41"2 LET Ds="¡40 
885 IF L=9 OR R=9 THEN GO TO 9 
00 


BEEP . 


890 LET Xi=11: LET Y1i=2: LET X2 
=11: LET Y2=29: RETURN 

900 LET Y$="GAME OVER" PRINT A 
T 10,125: GO SUB 980 


910 PAUSE 50 

920 LET Y$="PULSA UNA TECLA PAR 
A OTRO JUEGO": PRINT AT 12,23: G 
O SUB 980 

930 IF INKEY$="" THEN GO TO 93 
0 

940 RUN 


980 FOR I=1 TO LEN Y$: PRINT 1 


NK 453Y$(1)5: BEEP .08,0: NEXT 1: 
RETURN 
A 

HERRERA RARA 

1010 PRINT "RARA RAR AR ARRE AA 

HAHAHA 

1020 FOR I=1 TO 19: PRINT "4"5TA 

B313"8": NEXT 1 

A 

FAA AAA 

1040 FOR 1=7 TO 15: PRINT AT 1,1 

53 "HE 


1050 PRINT AT 11,123 "HHRHRAA 


O 


00 0 0 8 0 1. 0 0 0 0 0 0 0 0 0 0 O O O 0 


O 


1060 FOR I=5 TO 9: PRINT AT 1,95 
"05 AT 1,223 "R"50T 148,93 "%"5A7 

1+8,225"%"z NEXT 1 

1070 PRINT AT 7,105"4*"5AT 15,10 
¿URRUGAT 7,203 "HR"U5AT 15,205 "48" 
1080 FOR 1=9 TO 13: PRINT AT 1,4 
3URUGAT 1,273 "81 NEXT 1 

1090 PRINT AT 9,35"8"3AT 13,3; "8 
“5AT 9,283"4"5AT 13,283"%": RETU 
RN 

5000 DATA ";w",BIN 10000,BIN 100 
10010,BIN 10010010,BIN 10111010, 
BIN 11111110,BIN 10111010,BIN 10 
111010,BIN 10000010 


5010 DATA "=%",O,BIN 1111111,BIN 
1000,BIN 11110,BIN 11111110,BIN 
11110,BIN 1000,BIN 1111111 

5020 DATA "?H",BIN 10000001,BIN 

10111101,BIN 1011101,BIN 1111111 

,»BIN 1011101,BIN 1001001,BIN 100 

1001,BIN 1000 

5030 DATA "*",BIN 11111110,BIN 

10000,BIN 1111000,BIN 1111111,BI 

N 1111000,BIN 10000,BIN 11111110 
0 

, 

5040 DATA "+",0,0,0,BIN 10000,B 

IN 111000,BIN 10000,0,0 


O 


00 O 


O 
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6. Blade Runner 


Este programa ha nacido de la mente de Gwyn Dewey. Es un juego interesante en el que 
siempre pierdes, sin ninguna oportunidad para salvarte. 

Tú juegas en el papel de un blade runner perseguido por dos “replicantes”, androides que 
se rebelan contra los humanos. 


ES | 


Te mueves usando las teclas: 


5—Para ir a la izquierda. 
6—Para bajar. 

7—Para subir. 

8—Para ir a la derecha. 


El programa tiene 50 niveles (!) que se diferencian sólo en la velocidad de los replicantes; 
el primer nivel es el más difícil y el cincuenta es el más lento, pero no olvides que los 
replicantes te darán caza en cualquier nivel, así que no te desanimes. 

Este juego usa el reloj interno del ordenador para ver al final de la partida cuánto 
tiempo has sobrevivido a la persecución de los androides. Fíjate en la línea 260, si quieres 


saber cómo se usa ese reloj. 


1 REM %*x* BLADE RUNNER +% 
S LET d$="BLADE RUNNER" 
10 GO SUB 8000 

20 CLS 
30 PRINT 
PRINT " LA BASE DE ESTE PRO 


"ROBOT CHASE" 
GRAMA CON- SISTE EN LA PERSECUC 
ION. TU JUE-GAS EL PAPEL DE UN B 
LADE RUNNER CANSADO, TIENES QUE 

ESCAPAR DE DOS ANDROIDES FUERA 

DE CONTROL Y DEBES DURAR TANTO T 
IEMPO COMO PUEDAS, YA QUE TU Y 
IDA DEPENDE DE ESO.":z PRINT  INK 


RAF Ma E 


FILCO 


Ao oo GRAFICO A 


45 FLASH 1;5"CUANTO MAS TIEMPO D 
URES MEJOR" 


50 PRINT 1: PRINT " TE MUEVES U 
SANDO LAS FLECHAS "3 INK 53" 
(5,6,7,8)" 


55 PRINT " HAY 55 NIVELES. EL 
MAS DIFICIL ES EL PRIMERO Y EL M 
AS FACIL ES EL 50)" 

57 INPUT "EN QUE NIVEL QUIERES 

JUGAR 2 (1-DIFICIL**x50-FACIL) 
"3V: IF V<1 OR V>50 THEN GO TO 
57 


go 


£0 PRINT FLASH 13 
R 25"BUENA SUERTE" 

70 PRINT AT 21,05 FLASH 13"PUL 
SA UNA TECLA PARA EMPEZAR": PAUS 
EO 

90 CLS 

91 DATA 0,14,56,16,56,16,108,0 
,BIN 00011000,BIN 00111100,BIN O 
1011010,BIN O1111110,BIN 0011110 
O,BIN 00011000,BIN 00100100,BIN 
00011000,BIN 00011000,BIN 001111 
00,BIN O1011010,BIN O1111110,BIN 
00111100,BIN 01000010,BIN 00100 
100,BIN 01000010 


INK 65 PAPE 


92 FOR I=USR "3" TO USR "1"+2 
3 

93 READ Z: POKE 1,Z 

94 NEXT 1 

95 LET A=0: LET B=0: LET C=21: 
LET D=0: LET E=21: LET F=21: LE 
T L=0 


100 POKE 23674,0: 
POKE 23672,0 
110 BORDER O: 
Ls 

120 PRINT AT A,B;3" " 

130 LET A=A-(3* (INKEY$="7" AND 
A>2))+(3* (INKEY$="4" AND A<18)) 
140 LET B=B-(3*(INKEY$="5" AND 
B>2))+(3* (INKEY$="8" AND B<28)) 
150 PRINT AT A,B3"x" 

140 PRINT AT C,D3" * 

170 PRINT AT E,F3" ” 

180 LET C=C-(2*(A<C))+(4>0):2 
T D=D-(B<D)+(2*(B>D)) 

190 LET E=E-(A<E)+(2*(A>E))1 
T F=F-(2*(B<F))+(B>F) 
191 IF L=0 THEN LET L=1: 


POKE 23673,0: 


PAPER O: INK 7: C 


LE 
LE 


GO TO 
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200 

192 IF L=1 THEN LET L=0 

200 PRINT AT C,D3 INK 25CHR$ (1 
45+L) 

210 PRINT AT E,F;5 
A4S5S+L) 

220 IF A=C AND B=D OR A=E AND B 
=F THEN GO TO 240 

225 FOR I=1 TO Y 

226 NEXT I 

230 RESTORE : 

240 BORDER 2 

245 CLS 

250 PRINT AT 16,05 FLASH 13"TE 
HA DADO CAZA BLADE RUNNER!" 

260 PRINT "DESPUES DE ";INT ((6 
S536*PEEK 23674+256*PEEK 23673+P 
EEK 23672)/50)5" SEGUNDOS" 

265 INPUT LINE Z$ 
GO TO 20 
BORDER 7: 


INK 6;3CHRs$ (1 


GO TO 120 


PAPER 7: INK Oz C 


FOR G=1 TO LEN D$ 
LET F=USR "a" 
LET E=((CODE D$(G))-32):8+1 


FOR Y=E TO E+7 
FOR Z=1 TO 2 
POKE F,PEEK Y 
LET F=F+1 

NEXT Z 

NEXT Y 

PRINT AT 9,G3"3" 
PRINT AT 10,65"%" 
NEXT 6 

PAUSE 300 

RETURN 


7. Zombies 


Eres un náufrago en una isla habitada sólo por zombies caníbales; qué mala suerte 
tienes, estos zombies hace mucho tiempo que no prueban la carne fresca; por eso, ellos te van 
a perseguir hasta alcanzarte y devorarte. 

Para poder sobrevivir debes deshacerte de ellos; y para conseguir esto sólo tienes un 
método: 

La isla está llena de pozos sin fondo; por eso, si alguien se cae allí, no puede salir. Tu 


in 


E 
UL) 


al 


E 
“ri 


(A — 
z 
= 
ES 

E 

a 
_ 
EE 


y 


3 


5] 


escapatoria está en esos pozos, ya que si en tu huida vas guiando a estos zombies a los pozos 
y consigues que caigan ellos, no volverán a salir y habrás conseguido salvar la vida. 
Las teclas por las que diriges tus movimientos son: 


5—Para ir a la izquierda. 
6—Para bajar. 
7—Para subir. 
8—Para ir a la derecha. 


Los zombies tienen una gran ventaja sobre ti, y es que, mientras que tú sólo puedes 
moverte horizontal o verticalmente, ellos también pueden moverse en diagonal, lo que les 
proporciona una velocidad mucho mayor que la tuya. 

No te dejes llevar por el pánico; aunque el juego es muy difícil, y hay muchos zombies 
en la isla, siempre hay alguna esperanza. 

Buena suerte. 


PE 


== = dath ais a de h O IO ES 
[) Torneo BRAFIOO E 


0 soe dr ei. (ib e 


1) 
1) 


I I 
O 1 REM xx ZOMBIES +x%* 90 FOR I=i TO 12: PRINT AT RND ; ll 
! 20 RANDOMI ZE *20,RND*30353 INK 15"0":z NEXT 1 
O: 30 FOR I=1 TO 3: READ P$: FOR 100 FOR I=1 TO 6 0) 
: J=0 TO 7: READ P: POKE USR P$+J, 110 LET X=INT (RND*20): LET Y=1 | 
o! P: NEXT Jz NEXT 1 NT (RND*30)3 IF ATTR (X,Y)<>56 T¡ y 
ñ 50 DIM A(6): DIM B(6) HEN GO TO 110 í 
¡60 LET P=10: LET 0=15 120 LET A(I)»=X:1 LET B(1)=Y: PRI: 
¡o 70 BORDER O: PAPER 7: INK Oz C NT AT ACI),B(1)3 INK 23'"e"z NEX ! O 
¡ LS TI E 
O! 80 FOR I=1 TO 25: PRINT AT RND 130 IF ATTR (P,0)<>56 THEN LET! O 
¡ *20¿RND*303 INK 43"3:"z NEXT 1 Q=0+1: GO TO 130 ! 


i 


140 PRINT AT P,03"%5" 650 LET AT=ATTR (A(I)+A1,B(1)+B 


h 
0) | 150 BEEP .2,12: BEEP .2,241 BEE | 1) o) 
1 P..2,12: BEEP .2,24: BEEP .8,0 670 IF AT<>57 THEN GO TO 340 

O | 200 IF INKEY$<>"" THEN GO TO 2 | 680 PRINT AT 21,35 FLASH 15 INK : 

¡ 00 3; "CUIDADO VIENE OTRO ZOMBIE": ¡O 
205 IF INKEY$="" THEN GO TO 20 | FOR S=30 TO -30 STEP -1: BEEP .0 : 
015 2,S: NEXT S LO 

210 LET AS$=INKEYS: LET M=(A$="64 | ¿490 PRINT AT 21,35" 
 ")-(A$="7")2 LET N=(A$="8")-(A$= " M2 LET A(1)=99: GO 1 

o) 1 5) 10 
| TO 350 ¡ 
220 PRINT AT P,Q;5" " 800 PRINT AT 13,35 FLASH 13 INK 

O ¡225 IF ATTR (P+M,Q+N)=57 THEN 3 "INCONSCIENTE, TE HAS CAIDO E ¡O 
; GO TO 800 N UN AGUJERO” ' 

O | 230 IF ATTR (P+M,Q+N)=56 THEN 810 FOR S=30 TO +30 STEP -1: BE | y 
¡ LET P=P+M: LET 0=0+N EP .02,S: NEXT S: GO TO 900 
¡240 PRINT AT P,05"%" 850 PRINT AT 20,05 FLASH 13 INK 1 

O | 300 FOR I=1 TO 6: IF A(1)=99 TH | 3;"LOS ZOMBIES HAN CONSEGUIDO O ; O 
' EN GO TO 350 TRA VIDA" 

O | 310 LET A1=SGN (P-A(I)): LET B1 860 FOR I=1 TO 2: BEEP .1,0: BE | y 
; =SGN (Q-B(1)) ] EP .1,12: BEEP .1,24: NEXT l: BE | 

O ' 320 PRINT AT A(I),B(1)3" "sz IF | EP 1,0 
| ATTR_(A(1)+A1,B(1)+B1)<>56 THEN 900 PRINT $13 INK 65"PULSE UNA ¡O 
¡| GO TO 450 TECLA PARA OTRO JUEGO" 

O | 330 LET A(1I)=A(1I)+A11 LET B(1)= | 910 IF INKEY$<>"" THEN 60 T09 OQ 
| B(1)+B1 10 | 
O! 340 PRINT AT A(I),B(1)5 INK 23" 920 IF INKEY$="" THEN GO TO 92 ¡ y 
Ln (0) n 

¡350 IF A(I)=P AND B(1)=Q THEN 930 RUN 

O 60 TO 850 950 DATA "«s:",O,BIN 1100,BIN 10 ¡O 
11010,BIN 11111111,BIN 11000011, ' 
pt pri cs pe BIN 1000010,BIN 111100,0 Lo 
Macs A 
| sn ss a , , , ¡ 

Ad 100100,BIN 100100,BIN 100100,BIN ! O 
; EN LET G$=G$+ 
| 410 NEXT 1 110110 - | 

O | 420 IF LEN G$<6 THEN Go TO 200 | 770 DATA "s",BIN 111000,BIN 10 ¡O 
450 PRINT AT 20.2: FLasH 13 ink | 90100,BIN 10000010,BIN 1011101,B ¡ 
qe ¿ IN 11101110,BIN 101000,BIN 10100 ; 

O | 3j"HAS ESCAPADO DE LOS ZOMBIES" , , o! 
| 460 FOR I=-30 TO 50: BEEP .02,1 | 9%» BIN 1000100 
¡ + NEXT Iz GO TO 900 Lo 
t I 
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8. Cazando gambusinos 


Este juego ha encontrado una gran oposición a su publicación por parte de la Sociedad 
Protectora de Animales, ya que el juego consiste en matar tantos gambusinos como puedas 
con el número de bombas que tienes. Para matarlos, tienes una bomba que se mueve 
automáticamente en la parte superior de la pantalla; cuando creas que estás encima del 
gambusino, entonces das a una tecla cualquiera, cae la bomba, y, si le das, empieza el bicho a 
mover los brazos como señal de enfado. 

El número de bombas es limitado, y por cada vez que des a un gambusino tu 
puntuación aumentará 5.631. 


Ñ 


E IS 


A A 
UL o o ERAS CIA 


E oH 


REM **  CAZANDO .X 
REM xx GAMBUSINOS *Xx% 
BRIGHT 1: BORDER 4: PAPER 7 
LET g=35: LET s=0 
GO SUB 300 
CLS : PRINT— INK 15 PAPER 64 
3 FLASH 15AT O,55"TIENES "5 INVE 
RSE 1,65 INVERSE 05" BOMBAS"3 IN 
VERSE 1548T 2,95"TU PUNTUACION "5 
INVERSE 035 
10 LET X=42 LET Y=2 
15 LET O=INT (RND+*22+4) 
20 PRINT AT 19,03 INK 23"50p" 
30 PRINT AT X,Y3" 4%": BEEP .00 
7,40-Xz PRINT AT X,Y3" " 
LET Y=Y+1 
IF Y=31 THEN GO TO 90 
IF INKEYS$<>"" THEN GO TO 92 


IF G<1 THEN GO TO 220 

GO TO 30 

LET G=G-1 

BEEP .007,5 

LET X=X+1 

PRINT AT 19,03 INK 23 "sp" 

PRINT AT X,Y3"5f": BEEP .00 
5,40-X: PRINT AT X,Y3" ” 


130 IF X<20 THEN GO TO 100 

140 IF Y=Q THEN GO TO 200 

150 GO TO 9 

200 FOR T=1 TO RND*10+3: BORDER 
RND*7: PRINT AT X-1,Y53 INK 25". 
"z BEEP .2,2.5*T: PRINT AT X-1,Y 
3 INK 23"%6"2 BEEP .2,40-2.5*T: 
NEXT T 

210 FOR Z=1 TO 15: BEEP .007,2%* 
Z: NEXT Z: BORDER 4 

215 LET S=5+5631: GO TO 9 

220 PRINT 415 "OTRA PARTIDA": PA 


FOR Z=1 TO 3 
READ Z$ 

FOR E=0 TO 7, 

READ M 

POKE USR Z$+E,M 

NEXT E 

NEXT Z 

RETURN 

DATA "%",54,28,8,28,62,62, 


DATA "4"",36,36,60,247,189, 
189,36,36 
400 DATA "44",66,36,189,173,255 
,60,36, 231 
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9. Marcianos 


Prepárate para hacer frente y vencer a una gran invasión de feroces marcianos que 
vendrán con cazas y naves nodriza. Ellos tienen planeado colonizar la tierra y usarnos como 
esclavos. Ahora ha llegado la hora de la verdad; van a lanzarel último ataque. 

Debes cruzar el espacio con tu nave y destrozar todos los cazas y naves nodriza que 
veas. 

Los controles de tu nave son: 


1—Para subir. 
3—Para bajar. 
8—Para disparar. 


Verás que el programa tiene instrucciones completas. 
La presentación en este programa es así: 


ESTE Pd 
an bi 41 z : 


O 
du 


ale 
soi 
A AAA AA 


A ep dec 


LJ] [ 
¡MU 
e 
po 3 
1 


E 


2 


ini ica ii lat 
o 


modi + 


CES 


A FR IA A 
MES IZA 


NA 


TT 
e) 
3 
¿ AENA CS MAS. 


REM ** MARCIANOS *+%* 

GO SUB 5000 

REM ** INSTRUCCIONES 

BORDER 7: PAPER 7: INK 1: C 
LET HS=0: LET Z$=" a 
REM x%%* 3 —GRAFICO A 

REM ** dh “GRAFICO B 

REM x*%* C GRAFICO C 

REM ** D -GRAFICO E 

PAPER O: BORDER O: INK 7: C 
LS : PRINT FLASH 15 PAPER 05 IN 
K 23AT 1,123 "MARCIANOS" 

55 FOR N=0 TO 40: BEEP .01,N: 
BEEP .01,40-N:z NEXT N 

57 FOR N=0 TO 31: PRINT AT O,N 
3U9"30T 21,N35 "9": NEXT N: FOR N 
=0 TO 20: PRINT AT N,0O3"de"5AT N 
1315"8b6": NEXT ON 

60 PRINT : PRINT AT 3,23"LOS " 
3 INK 25"MARCIANOS (Cp) "5 INK 7 
3 "TIENEN PLA-"3AT 4,153"NEADO INV 
ADIR LA TIERRA. DEBES"5AT 5,13" 
VITAR ESTA CATASTROFE. " 

63 PRINT : PRINT AT 7,23"TAMBI 
EN INTENTARAN DE VEZ EN”5AT 8,1; 
"CUANDO COLONIZARNOS CON SUS" 

65 PRINT — INK 25AT 9,15"NAVES 
NODRIZAS (ib) "3 INK 73" SI ESAS 
NA-"3AT 10,15"VES LOGRAN  ATERR 
IZAR PERDE-"5AT 11,1;5"RAS "5; FLA 


8H 11"DOS"3 FLASH 05" DE TUS CIN 
CO VIDAS." 

70 PRINT AT 13,2;"TU ERES ESTA 
NAVE "3 INK 45"(CD)"3 INK 73" Y 
DE-"3AT 14,15"BES DISPARAR A LQ 

S MARCIANOS"5AT 15,15"ANTES QUE 
ALCANCEN LA PARTE DE-"5AT 16,13" 
RECHA DE LA PANTALLA. " 

80 PRINT AT 17,2;"SI UN MARCIA 
NO (Ci) LO HACE"5AT 18,15 "PIERDE 
S "3 FLASH 15"UNA"; FLASH 03" VI 
DA " 

90 PRINT +15"PULSE UNA TECLA P 
ARA SEGUIR": PAUSE O 

100: CLS : FOR N=0 TO 31: 
AT 0,N3"m"sAT 21,N3 "pez 
: FOR N=0 TO 20: PRINT AT N,0O3 "ut 

"AT Ny313"4b"s NEXT N 

110 PRINT AT 3,2; "PUNTUACIONES: 
"3AT 5,103 INK 23"3""3 INK 753" D 
E 20 A 50 PUNTOS";AT 7,103 INK 2 


PRINT 
NEXT N 


3" INK 73" 300 PUNTOS" 

120 PRINT AT 9,35 "MOVIMIENTO: "; 
AT 11,10;3"1 -—— ARRIBA"53AT 13,10 
3"3 --- ABAJO"; AT 15,103"8 -—- F 
UEGO" 

130 PRINT +15"UNA TECLA PARA EM 
PEZAR": PAUSE O 

150 LET L=5: LET S=0: LET A=5: 
LET B=28 


' 
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160 LET A$="+--+- 4-4 4-44 
hon o +" 

170 CLS 

175 REM **EL JUEGO 

180 PRINT FLASH 1; PAPER 0; 
K 23AT 0,12; "MARCIANOS" 

181 PRINT AT 1,0; "MEJOR PUNTUA 
CION:": PRINT Z$(1 TO 7)3" "5HS;5 
"VIDAS: "¿L 

200 FOR Z=1 TO 6: 

A$: NEXT Z 

201 LET D=03 LET C=INT (RNDx*5) 

202 LET E=INT (RND+*5) 

203 IF E=3 THEN LET A$=" 
60 TO 205 

204 LET A$=" ju" 

205 IF C0=4 THEN 

206 IF C=0 THEN 

207 IF C=1 THEN 

208 IF C=2 THEN C=9 
IF C=3 THEN LET C=11 
PRINT — INK 23AT A,B5"CD" 

IF INKEYS$="1" THEN LET A=A-2 
IF INKEY$="3" THEN LET A=A+2 
IF INKEY$="H" THEN PAUSE 4 


IN 


PRINT : PRINT 


de 


C=13 
C=5 
C=7 


IF A=3 THEN LET A=5 

IF A=15 THEN LET A=13 
PRINT AT A-2,B3" PRINT 
AT A+2,B3"  " 

270 IF INKEY$="8" 
1000 

2753 IF As=" 
K 45AT C,D3A$ 
276 IF A$=" ¿6 THEN PRINT 
K 33AT C,D53A$ 

280 LET D=D+i 

285 IF D=22 THEN GO TO 2000 
286 LET F=0: LET 6=0 

300 GO TOD 210 

1000 LET F=4 

1005 PRINT AT C,D3" ” 

1010 LET G=B-2 

1020 PRINT AT F,G3"-- " 

1030 LET G=G-1 

1040 IF (F=C AND G=B-1) OR (F=C 
AND G=D) OR (F=C AND G=D-1) THEN 


THEN 60 SUB 
$" THEN PRINT IN 


IN 


GO TO 1500 
1060 LET D=D+1 
1065 IF As$=" y" THEN PRINT IN 
K 43AT C,Dj5As$ 
1056 IF A$=" di" THEN PRINT IN 


K 33AT C,Dj3As$ 
1070 1F D>27 THEN GO TO 2000 
1080 IF G=0 THEN PRINT AT F,G;3" 


": GO TO 210 

1090 GO TO 1020 

1500 PRINT AT C,D3" “5AT F,G3"" 
1505 IF A$=" +" THEN BEEP .05, 
10: GO TO 1700 

1506 BEEP .05, (RND+*10) 

1510 LET S=S+300 

1520 PRINT AT C,D3"  " 

1530 GO TO 201 

1700 LET Y=INT (RND*4) 

1710 IF Y=0 THEN LET S=5+20 
1720 IF Y=1 THEN LET S=S+30 
1/30 IF Y=2 THEN LET S=S5+40 
1740 IF Y=3 THEN LET S=5+50 
1750 PRINT AT C,D3"  " 


1760 GO TO 201 

2000 PRINT AT F,G3"  "5AT C,D35" 
“3 LET L=L-182 1F A$=" 4" THEN 
LET L=L-1 

2001 IF L<1 THEN GO TO 3000 


2010 
2020 
2025 


PRINT AT 2,85HS3" VIDAS: "3L 
FOR Z=0 TO 100: NEXT z 
PRINT AT F,G3" " 
2030 60 TO 201 

3000 PRINT FLASH 1; 
,115 "GAME OVER" 

3010 FOR Z=10 TOD -15 STEP -.5 
3020 BEEP .05,Z 

3030 NEXT Z 

3035 PRINT AT 18,10; "PUNTOS: "35 
3036 IF S>HS THEN GO SUB 4000 
3040 PRINT 4153 "OTRO JUEGO ? (S/N 
)"z PAUSE O 

3050 IF INKEY$="S" THEN GO TO 50 
3070 60 TO 3050 

4000 PRINT AT 19,03"BIEN HECHO! 
HAS SUPERADO EL RECORD DE HOY. T 
ECLEA TU NOMBRE. " 

4010 INPUT Z% 

4020 IF LEN Z$>20 THEN GO TO 4010 
4025 LET HSs=5 

4030 RETURN 

5000 REM +** GRAFICOS DEFINIDOS 
5010 FOR M=1 TO 5: READ A$: FOR 
N=0 TO 7: READ Az POKE USR A$+N, 
Az NEXT ON: NEXT M 

5020 DATA "A",128,192,100,255,25 
5,100,192, 128 

5030 DATA ":2ó",36,60,1246,255,171 
,255,126,0 

5040 DATA "C",0,0,0,0,1,255,255,7 
5050 DATA "D",7,15,30,255,26,255 
¿254,248 

5060 DATA "-.",0,0,0,0,255,0,0,0 
5070 RETURN 


INK 63AT 16 


O 0 0 


o) 


10. Emboscada 


El alto mando te ha ordenado que esperes emboscado en la parte inferior de la pantalla 
a que pase el convoy enemigo y acabar con él. Para ello dispones de un tanque, que 
gobiernas con las teclas: 


Z—Para ir a la izquierda. 
M-—-Para ir a la derecha. 
F—-Para disparar. 


El número de disparos es limitado y la puntuación te vendrá dada por el número de 
vehículos que destroces del convoy. 
No olvides conectar CAPS LOCK. 


ME o o RAF TA FA E 
PA] cc EA E ES há 


ds LS 


1 REM xx EMBOSCADA *%* 
20 GO SUB 1000 
30 PRINT AT A,B-15 
40 PRINT AT C,D-15 


INK 23" 3" 
INK 13% pu 
» 

50 IF INKEYS$="F" 
500 

60 LET B=B+1 

70 LET D=D+(INKEY$="M")-—(INKEY 
$="7") 

80 IF B<31 THEN GO TO 30 

90 PRINT AT 5,303" "2 LET B=0 

100 GO TO 30 

500 FOR 6=C TO A STEP -1 

510 PRINT AT G,Dj INK 23" 4"5AT 

G, DD" " 

520 NEXT G 

525 LET DISP=DISP+1: 
0,53 INK 23 FLASH 15 
SP;" DISPAROS" 

530 IF B=D THEN LET PUNTOS=PUN 
TOS+1:2 PRINT AT 1,43 FLASH 13 BR 
IGHT 13 INK 15"ACIERTOS> "5PUNTO 

: BEEP .01,.4: BEEP .01,.8: BEE 
P .05,.4 


THEN GO SUB 


PRINT AT 2 
BRIGHT 15DI 


540 IF DISP=50 THEN PRINT AT 2 
0,15 BRIGHT 15 INK 25 FLASH 13 P 
APER 63" TU PORCENTAJE DE ACIERT 
OS ES "5PUNTOS/.5353"% "2 STOP 

990 RETURN 
1000 LET A=5: 
1010 LET C=16: LET D=0 
1020 LET PUNTOS=0 
1030 LET DISP=0 
1040 FOR Z=1 TO 3 
1050 READ Z$ 

FOR G=0 TO 7 
READ M 

POKE USR Z$+G,M 
NEXT G 
NEXT Z 
INK Oz 


LET B=0 


PAPER 7: BORDER 41 C 
RETURN 
DATA "E",254,16,56,63,56, 1 


1515 DATA "¡4",8,73,73,93,127,93 
165,65 

1520 DATA "+",8,8,28,62,127,8,8 
,28 
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11. Caza 


Ahora que se ha abierto la temporada de caza, te vas a vengar del año pasado, donde 
no conseguiste ni una sola pieza; ahora has encontrado un lugar ideal; sobre tu cabeza 
vuelan dos bandadas de patos, una azul y otra roja. Para conseguir el mayor número posible, 
colócate bien, usa las teclas 'm' y “2”, y cuando lo creas conveniente dispara con “a'. 


! E — 
E Mr a E e CJ) 
¡O 


E di "Mii ETA ll ill fito "lb 


Si te consideras lo suficientemente bueno, puedes intentar matar a dos patos a la vez; yo 
te digo que no es difícil, pero no mantengas el gatillo pulsado todo el tiempo, ya que, si lo 
haces, el ordenador te penalizará. 

Si matas todos los patos, entras directamente en la lista de los mejores. 


«3d A E 


| 

[] A ER | 
| Í 

| 


CAZA **e 

10 GO SUB 4000 

12 BRIGHT 1: PAPER 7: CLS : BO 
RDER 7 

15 LET hs=0 

20 LET a=INT (15+RND*4—-RND*4) : 


95 LET C$=INKEYS 
100-IF C$="A" THEN GO SUB 1000 
110 LET A$=A$(3 TO )+A$(1 TO 2) 
120 LET B$=B%$ (32)+B$( TO 31) 
130 GO TO 50 

1000 LET C=A-12 LET SH=SH+593 


LET seo 1010 FOR B=1é6 TO 1 STEP -2 
23 LET SH=0 1015 LET C$=INKEYS O 
30 LET A$=" otr A et 5 

AA , 1020 PRINT AT 2,03 INK 23A$3AT 4 


»05 INK 13B$ 

1030 LET A=4+2*(C$="M" AND AX28) 
-2x* (C$="Z" AND A<4) 

1040 PRINT AT 17,4-33 INK 33" 


40 LET Bé=""a e Ms Js 
o A ” 
50 PRINT AT 2,035 INK 25A$5AT 4 
,05 INK 1;3B$ 
60 LET F=0 
65 IF A$=" 
" THEN LET F=F+1 
70 IF B$=" 
" THEN LET F=F+1 
75 IF F=2 THEN 60 TO 3000 
80 LET Có$=INKEYS$ 
BS LET A=A+2*(C$="M" AND A<28) 
2 (0$="Z" AND A>4) 
90 PRINT AT 17,A-335 INK 33" +" 


1050 PRINT AT B,C3 INK 33"2" 
1060 LET A$=A$(3 TO )+A$(1 TO 2) 
1070 LET B$=B$(31 TO 32)+B$( TO 
30) 

1080 IF B=4 AND B$(C+2)<>" " THE 
N BEEP .008,30: BEEP .008,10: G 
O SUB 1500 

1090 IF B=2 AND A$(C+1)<>" " THE 
N BEEP .008,0: BEEP .008,40: GO 


; SUB 2000 
' 1100 PRINT AT B,C3" " 

: 1110 NEXT B 

' 1120 RETURN 

¡ 1500 LET B$(C+2)="p" 
; 1510 LET SC=SC+10 

! 1520 PRINT AT 0,35 FLASH 1; BRIG 
¡HT 15 INK RND*65 INT (174*S5C/306. 
| 55H) 

| 1530 BORDER RNDx*ós PRINT AT 4,0; 
y INK 33 INVERSE 15B$: BORDER 7 
¡ LET B$(C+1 TO C+3)="  " 

] PRINT AT 4,05B% 

RETURN 

í 2000 LET A$(C+1)="8g" 

; 2020 PRINT AT 0,353 FLASH 153 BRIG 
¡ HT 13 INK RND*63 INT (174*SC/306. 
¡| 55H) 

! 2030 BORDER RND*56: 
BRIGHT 15 
1 

4 

t 

1] 

i 

' 

t 

' 

t 

t 

' 

t 

1] 

1 

I 


PRINT AT 2,0; 
INVERSE 15 INK 554%: 
BORDER 7 

2040 LET A$(C TO C+2)=" A 
2050 PRINT AT 2,03A$ 

2060 RETURN 


3000 LET SC=INT (174x*5C/306.5*SH 


IF SC>HS THEN LET HS=SC 


3020 PRINT AT 0,03 INK 25 FLASH 


13"HAS DADO A "; 
HT 13SC3AT 3,0; 
3"EL MEJOR ES "5 
3030 FOR G=1 TO 50: 
BEEP .02,50/G1 NEXT G 

3040 CLS 

3050 GO TO 20 

4000 REM DEFINICION 

4020 FOR X=1 TO ¿4 

4080 READ 0$ 

4090 FOR Y=0 TO 7 

READ W 

4110 POKE USR 0$+Y,W 

4120 NEXT Y 

4130 NEXT X 

4140 DATA "A",0,3,7,15,111,255,9 


I 
| 
I 
' 
' 
1 
I 
t 
I 
I 
' 
1 
I 
I 
1 
t 
p! 
t 
t 
1 
t 
' 
1] 
] 
I 
' 
4 
' 
I 
' 
' 
] 
] 
9,0 ] 
) 
I 
1 
] 
1 
] 
' 
t 
I 
¡ 
t 
' 
' 
] 
1] 
t 
I 
' 
1] 
t 
I 


INVERSE 15 
INVERSE 1; 
INVERSE 05HS 

BEEP .02,6: 


BRIG 
INK 1 


4150 DATA "B",112,227,141,62,253 
1,252,253, 96 

4160 DATA "0",240,126,31,63,127, 
0,3,0 

4170 DATA "D",0,0,24,156,255,220 
¿0,0 


4180 DATA "E",8,8,40,40,248,32,8 
0,80 

4190 DATA "G",16,56,84,16,16,16, 
40,68 

5000 RETURN 
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12. Viaje a través del túnel 


Entra en la cabina y ponte a los controles de tu nave; es posible que tengas frente a ti la 
misión más difícil a la que nunca te hayas enfrentado. 


AS 


PIADRSTE” 
E i 


| ll 
e E 
E AM 
ES : 
se 
4 
| 3 


) 


úl 
| 


Debes guiar el aparato a través de un túnel, evitando el choque con las paredes de éste. 
Los controles de tu nave son: 


5—Izquierda. 
8 —Derecha. 


Si quieres cambiar la dificultad del juego, fijate en la línea 90. Allí verás un 4,65; ese 
número es el que hace que los giros sean más o menos cerrados; por eso, si ves el juego 
demasiado sencillo, cambia el valor y pon un 4,8 ó 4,9. En cambio, si el juego te parece 
demasiado difícil, pon un 4,2 ó 4,1. 


L) 


[) 


t ! 
90 1 REM ** VIAJE A TRAVES ** NVERSE 13“x" ¡0 
5 REM exe DEL TUNEL e. 105 PRINT : BEEP .007,2*P 
O: 10 BEEP .2,4: BEEP .1,2: BEEP 110 IF SCREEN$ (16,P)="X" THEN ¡O 
1 1,2: BEEP .2,4: BEEP .4,2: BEEP GO TO 140 
ol .2,6: BEEP .2,7 115 PRINT — INK 13AT 0,05 PAPER : 10) 
¡20 GO SUB 170 63 FLASH 13 BRIGHT 13"VIAJASTE " 

; 30 FOR a=1 TO 1000 STEP .3 3 INVERSE 1553" PARSECS" | 
O! 50 LET s=s+10 120 NEXT A 0 
60 LET P=P+(INKEY$="8")-(INKEY 130 GO TO 30 
O | $="5")-(P=20)+(P=5) 140 PRINT  INK 13AT 0,03 PAPER | y 
! 70 PRINT AT 16,P3">+" 63 FLASH 13 BRIGHT 13"VIAJASTE *“ : 
¡80 POKE 23492,10 3 INVERSE 15S5;" PARSECS" 

O | 90 LET B=4.65x*SIN (A)+9 150 IF INKEY$<>"" THEN 60 TO 1 ¡ O 
¡95 PRINT BRIGHT 13AT 14,P3" " | 50 

¡100 PRINT BRIGHT 13AT 21,B5 IN 160 BEEP .2,7: BEEP .1,2: BEEP ¡O 
| VERSE 13"X"3 INVERSE 03" "s 1 .1,2: BEEP .2,4: BEEP .4,2: BEEP |! 
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200 NEXT G 


.2,6: BEEP .2,7 


i 

O | 165 STOP 210 PAPER 2: INK 7: BORDER 5: CLS O 
170 FOR G=0 TO 7 220 LET S=0: LET P=15 

O ! 180 READ M 250 RETURN O) 
I 
¡ 


190 POKE USR "A"+G,M 260 DATA 28,8,8,127,62,28,89,9 
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13. Bombardero 


Estás a los mandos del último modelo de bombardero. Pero ha sufrido una avería que le 
obliga a hacer un aterrizaje de emergencia. Como por donde estabas volando no hay pistas 
en condiciones, tienes que aterrizar en un lugar lleno de ruinas; por eso, mientras bajas, 
tienes que bombardear el suelo y dejar la pista llana. 


am RAF IO FA 
A BEA IA ES 


o IES E AN DS 


| 
a e 
E A lo) 
A e 
1] 


.es GRAFICO HT 
a ERAFTAÓ 


A A AS A 


2. BRAF TICO 


e GRAFICO M 


Pero para colmo de tus males en esas ruinas hay un personaje llamado “el escalador 
loco”, que buscará tu destrucción; ten cuidado con él. 

El bombardero baja solo, así que lo único que tienes que hacer es bombardear el suelo; 
para eso pulsa la tecla “b”. El número de bombas no tiene límite. 


== Ps 


mI CIS IO 


) 


Bicflo 


1 REM x**x BOMBARDERO ** 
2 BORDER O: PAPER Oz INK 7: C 


terrizar ur- gentemente. Pero el 
suelo esta lleno de escombros 


Ls , ., por eso lo tienes que limpiar o) 
3 LET hi=01 LET BOMB=5000 tes de Gite.» 
4 LET MADCRASH=8000: LET ESCA 53 PRINT * Para esto bienes qu 
LADOR=3000: LET a L e ir bombar-deandolo (tecla ”*b”*- 10) 
5 CLS : LET DE=0: LET ES (f), solo tienes ese control) 
ET Ll=6: LET SP=5: LET SC=0 E > en 
. : PAPER 4 Un ultimo consejo : o) 
6 FLASH Dr INK Za 65 PRINT " - Ten cuidado con e 
7 LET LE=10 a 
1 1 escalador loco 
y PERSA 80 PRINT $t13"PULSA UNA TECLA P 


10 PRINT A Po Bla sell pe PA pan, 


PU pp 


ARA EMPEZAR" 


20 PRINT "illes" ME laa Maca ases" 100 IF INKEY$="" THEN GO TO 10 
CA o 
IS OI 103 CLS O 


105 RESTORE 
110 FOR I=USR "EI" TO USR "4"+7 


K 404” 
40 PRINT "run mena RN] 


O 120 READ A: POKE 1,A 9 
45 PAPER Oz INK 72 FLASH O 130 NEXT I 
60 PRINT " Estas al mando de u 140 DATA 255,129,165,129,129,16¡ O 


I 
1 
1 
1 
1 
1 
¡ 
1 
I 
1 
l 
I 
1 
1 
I 
' 
' 
I 
! 
' 
1 
1 
I 
1 
1 
! 
' 
' 
1 
1 
1 
1 
1 
I 
' 
1 
I 
1 
1 
1 
1 
1 
1 
' 
1 


O 


na avioneta (*=%*) que necesita a 5,129,255 


150 

129 
151 

0,0 
152 


DATA 24,24,36,36,66,66,129, 


DATA 192,192,224,255,127,0, 


DATA 0,120,252,255,255,32, 1 


12,32 


153 


7; 
161 
152 
164 
05 
165 
169 
170 
180 
185 


INK 735". 


DATA 68,124,56,56,56,56,56, 


DATA 
DATA 


0,10,1,24,15,103,6,78 
0,0,64,78,228,24B,122, 


DATA 
DATA 


28,62,15,7,38,68,9,0 
52, 48,24,252,113,52,16 


PRINT — INK 63 PAPER 03" 
00 "¿SC5AT 0,183 "MAX-PUNT: 


PRINT AT 0,10-(BU>10)53 INK 


PAPER 05BU 


PRINT AT 0,05 
FOR I=0 TO 4 STEP 3 


IF LI>=1 THEN PRINT PAPER 


, 


NEXT 1 

FOR I=i TO LE 

LET A=INT (RND*28)+2 

LET B=INT (RND*15)+6 

IF SCREENS (21,A)="" THEN 


60 TO 170 


190 
200 
210 
220 
230 
240 
300 
310 
311 
312 
314 


FOR J=21 TO B STEP 
PRINT AT J,A3"[3" 
NEXT J 

PRINT AT B,A3",s" 
NEXT 1 

FOR 1=3 TO 21 

FOR J=0 TO 29 
PRINT AT 1,J3"tegu" 
PAUSE SP 

IF DE>O THEN 60 SUB 5060 
IF SCREENS (1,J+2)<>" " THE 


-1 


N 60 TOD CRASH 


315 IF DE>0 THEN GO TO 320 

3165 IF INKEY$="b" OR INKEY+$="B" 
THEN 1F 1<21 THEN (GO SUB BOMB 
320 IF RND<(1/300) THEN GO SUB 
ESCALADOR 

345 PRINT AT I,J3"  " 

350 NEXT J 

400 NEXT I 


500 PRINT AT 10,10;"BIEN HECHO” 


2 LET SP=SP-1: 


IF SP=0 THEN LET 


sP=1 


510 LET BU=BU+1: 
520 LET DE=0: 
EXT K:z 


LET LE=LE+1 
FOR K=1 TO 100: N 


CLS : GO TO 158 


3000 REM ESCALADOR 


3062 


MBX THEN 


050 


DATA 90,90,60,24,24,60,36, 1 
DATA 24,24,60,90,90,24,24,6 


DATA 12,13,9,31,28,20,34,33 
DATA 12,12,8,31,28,20,116,6 
LET MBX=INT (RNDx*29) 

IF SCREENS (21,MBX)="" THEN 
TO 3050 

IF J+1=MBX OR J=MBX OR J-1= 
IF P-4<1 THEN GO TO 3 


FOR p=1 TO 3 

PRINT AT 21,MBX3"." 

BEEP .5,1 

PRINT AT 21,MBX3 "0" 

BEEP .5,1 

NEXT P 

PRINT AT 21,MBX3" " 

FOR p=21 TO O STEP -1 

IF SCREENS (P,MBX+1)="" THE 


N NEXT P 


3140 


FOR 0=21 TO P+1 STEP 

PRINT AT P,MBX3 "4" 

BEEP .05,21-Q 

PRINT AT Q,MBX5" " 

PRINT AT Q-1,MBX3 "4" 

BEEP .05,21-Q 

PRINT AT Q-1,MBX3" " 

NEXT Q 

IF P<>21 THEN LET P=P+1 

FOR Q=P TO P-4 STEP -2 

PRINT AT Q,MBX3" 4 

PRINT AT Q,MBX+13 "¡31 

BEEP .05,21-Q 

PRINT AT Q,MBX3" " 

PRINT AT Q-1,MBX3" 4" 

PRINT AT Q-1,MBX+13"[31" 

BEEP .05,22-Q 

PRINT AT Q-1,MBX3" " 

NEXT Q 

RETURN 

FOR N=1 TO 21 

PRINT AT N,J5 "ego 

BEEP .1,21-N 

PRINT AT NyJ3"  " 

NEXT N 

PRINT AT N-=2,J5 Usar" 

PRINT AT N-1,J5 "930 

BEEP 2,-20 

PRINT AT N-2,J3"  " 

PRINT AT N-1,J3" " z 

PRINT AT 0,LI; PAPER 05 “INK 
0 


=2 


LET LI=LI-3 
IF LI=-3 THEN GO TO 6000 


¡CO O 


O 


O 


O 


O 
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o | 4100 GO TO 240 5070 IF SCREENS (M,L)="" THEN Lig 
4999 STOP ET DE=DE-1: LET SC=SC+10: PRINT |! 
: 5000 REM ***BOMB*xXx AT 0,123 INK 7; PAPER 0,SC | 

O ¡| 5010 LET L=J 5080 PRINT AT M,L3"y" O) 
¡ 5020 LET DE=4 5085 IF DE=0 THEN PRINT AT M,Lj3 ! 

O | 5030 LET M=I+1 1.0 0 
¡ 5040 PRINT AT M,L;"Y" 5090 RETURN l 
; 5050 RETURN £000 PRINT AT 10,10; "GAME OVER" ; 

O | 5060 PRINT AT M,L5" "2 IF M=21 T | 6010 FOR K=1 TO 100: NEXT k ss 
¡HEN LET DE=0: RETURN 6020 IF SC=HI THEN LET HI=SC 

O | 5065 LET M=M+1 £030 GO TO 5 Mo] 
I ' 
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14. El pistolero 


Este es un duelo en el FAR WEST; tú y tu Spectrum os enfrentáis a muerte, debes 
acabar con él. 


AN 4 


a 1d 
| 
| 


A 
a 
LJ) 


Te mueves usando las teclas: 


Q—Para subir. 
A —Para bajar. 
O—-Para disparar. 


Gana el pistolero que antes llegue a los 100 puntos. 
Este juego tiene nueve niveles; cuanto mayor sea el nivel, mayor es la dificultad y mayor 
es, también, la probabilidad de que se te encasquille la pistola. 


YE IBER 


m o O E A 


Mad o AREA DE CAE 


250 PRINT  INK 13AT Y1,23" "3 
AT Y1+1,253"CD" 

260 PRINT  INK 23AT Y2,295" 4k " 
¡AT Y2+1,295"CD" 

300 LET Y1=Y1+(RND>.5 AND Y1<19 


)—(RND<.S AND Yi1>2) 
310 LET Y2=Y2+(INKEY$="A" AND Y 


1 REM ** EL PISTOLERO +**e 
30 GO SUB 64000 

40 GO SUB 4000 

50 BORDER 6: PAPER 6: CLS 
60 LET PUNT1=0: LET PUNT2=0 
100 FOR Y=3 TO 18: FOR X=14 TO 


110 PRINT— INK 3507 Y,X3"4"z N 


O 2<18)-(INKEY$="Q" AND Y2>2) o) 
EXT X1 NEXT Y 330 IF RND>D/10 THEN GO SUB 10 
o 00: REM DISPARO DEL ORDENADOR 
e FLATaS 350 IF INKEY$="0" AND RND<.3+D7 | O 
200 LET Y1=INT (RNDx*17)+3 de «HEN BH BUB Zo0bo 
O | 210 LET Y2=INT (RND*17)+3 
240 PRINT INK 25AT Y2-1,29;" 400 IF RND>.9 THEN_ PRINT AT RN 
"s AT Y 242,293" " Dx*15+3, RND+145 INK 3; A 
O 450 IF PUNT1=100 THEN PRINT AT! O 


241 PRINT— INK 13AT Y1-1,23"  " 
FAT Y1+2,23%  " 


! 
í 
1 
! 
1 
¡ 
1 
I 
I 
1 
1 
I 
1 
120 PRINT AT 0,03" PUNTOS 
1 
1 
¡ 
1 
1 
1 
I 
1 


10,4;5"GANA EL ORDENADOR! !!":z IN 
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i 
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1 
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I 
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1 
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I 
! 
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' 
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I 
1 
1 
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PUT "PULSA ENTER PARA EMPEZAR"3G 
: RUN 

460 IF PUNT2=100 THEN PRINT AT 
10,4;"HAS VENCIDO AL ORDENADOR 
111%; INPUT "PULSA ENTER PARA E 
MPEZAR"5G$:z RUN 

500 GO TO 220 


1000 PRINT — INK 13AT Yi-1,23"  " 
¿AT Y1+2,23"  " 
1010 PRINT — INK 13AT Y1,23" 1."5 


AT Y1+1,23" -%h" 

1020 BEEP .005,-10 

1030 FOR X=4 TO 12: PRINT AT Yi, 
X3 INK 05" «."z NEXT X 

1040 IF ATTR (Y1,14)<>48 THEN B 
EEP .01,50: PRINT AT Y1,13;" 
RETURN 

1045 IF ATTR (Y1,15)<>48 THEN B 
EEP .01,50: PRINT AT Y1,145" 

RETURN 

1050 FOR X=13 TO 27: 

¿X3" o ="z NEXT X 

1060 IF, Yi=Y2 OR Yi=Y2+1 THEN P 

RINT AT Y1,27;" PRINT  INK 2 

¡AT Y2-1,283" "¿AT Y2,285" w 


PRINT AT Yi 


E "3AT Y2+1,2853" ": BEEP 
«1,30: FOR C=0 TO -20 STEP -1: 
BEEP .05,C: NEXT C: BORDER 2: PA 
USE 10: BORDER 1: PAUSE 10: BORD 
ER 4: PAUSE 10: BORDER 6: PAUSE 
50: LET PUNT1=PUNT1+10: PRINT AT 

O0,103PUNT1: RETURN 

1070 PRINT AT Y1,27;3" a 

1100 RETURN 

3000 PRINT AT Y2-1,295 INK 25" 

"AT Y2,293 "9 "5AT Y2+1,293" yl 
"¡AT Y2+3,293" " 

3007 BEEP .005,-10 


3010 FOR X=27 TO 16 STEP -1: PRI 
NT AT Y2,X3".0. NEXT X 

3020 IF ATTR (Y2,15)<>48 THEN B 
EEP .005,50: PRINT AT Y2,143" 
RETURN 
3030 IF ATTR 
EEP .005,50: 
"1 RETURN 
3040 FOR X=15 TO 4 STEP -1: 
TAT Y2,X3"=» NEXT X 
3050 IF Y2=Y1 OR Y2=Y1+1 THEN P 
RINT— INK 13081 Y1,253 "vo "AT 
Y1-1,2;" "5AT Y1+1,23" BE 
EP .1,30: FOR C=0 TO -30 STEP -1 
: BEEP .005,C: NEXT C: BORDER 5: 
PAUSE 10: BORDER 7: PAUSE 10: B 
ORDER 3: PAUSE 10: BORDER 6: LET 


(Y2,14)<>48 THEN B 
PRINT AT Y2,14;3" 


PRIN 


PUNT2=PUNT2+10: PRINT AT 0,28; 


INK OjPUNT2: PAUSE 50: PRINT AT 
Y2,23" "3 RETURN 

3060 PRINT AT Y2,0;" "3 RET 
URN 

4000 FOR A=USR "L- " TO USR "5 
"+6: READ B: POKE A,B:z NEXT A 
4050 DATA 0,3,7,3,3,7,15,27,0,19 


2,224,192,192,224,240,216,7,3,1, 
3,7,12,24,48,224,192,128,192,224 
,48,24,12 

4060 DATA 0,0,0,1,3,1,113,31,0,0 
,0,128,192,128,128,128,1,1,1,15, 
9,79,25,0,128,128,128,128,128,136 
,248,0 

4070 DATA 0,0,0,1,3,1,1,1,0,0,0, 
128,192,128,142,248,1,1,1,1,1,9, 
15,0,128,128,128,240,144,144,152 
o 

, 

4080 DATA 48,48,52,52,60,24,24,2 
4,0,0,0,56,56,56£,0,0,0,192,97,51 
,25,77,127,0,0,3,134,204,152,178 
,254,0 

4100 RETURN 


£000 INK Oz PRINT " EL PI 
STOLERO": PRINT 

6010 PRINT " INSTRUCCIONE 
s" 

6020 PRINT : PRINT : PRINT " EST 


E ES UN DUELO EN EL OESTE. TUERES 
EL PISTOLERO DE LA DERECHA Y DE 

BES DISPARAR AL DE LA 12Z- QUIE 
RDA, QUE ESTA GUIADO POR EL ORDE 
NADOR." 

6030 PRINT : PRINT " PARA MOVERT 
E USA LAS TECLAS:" 


6040 PRINT " Q--- SUBIR" 
6050 PRINT " A--- BAJAR" 
"6060 PRINT " 0-—-- DISPARAR" 


6070 PRINT : PRINT "VENCERA EL P 


RIMERO QUE LLEGUE A LOS 100 PUNT 
0S": PRINT : PRINT " BU 
ENA SUERTE !" 

£080 INPUT "PULSA ENTER PARA EMP 
EZAR"56$ 

6090 PRINT " ELIGE NIVEL DE DIF 
ICULTAD 1-9 (EL 9 ES EL MAS FAC 
11)": PRINT : PRINT : PRINT : PR 


INT " CUANTO MAYOR SEA LA DIFICU 
LTAD MAS PROBABLE ES QUE TU REVO 
LVER SE QUEDE ATASCADO": PRINT " 
CUIDADO CON LOS CACTUS DE CRE-C 
IMIENTO RAPIDO.": INPUT Dz: RETUR 
N 


59 


15. Frontenis 


Este programa es una versión del primer juego que salió en los videojuegos; se llamaba 
“BREAKOUT”; la diferencia con aquél está en que éste, en vez de tener sólo una pared, 


tiene dos. 


MEM 
MN 


¡ 


| 
y: 


| 
| 


li 
fi 
ñ 


ARNNA NEU DAS 


| | 
telllenlll 1 Boadella E h 


A " A eat sea | 
A IA A a E e E E A 0 O 1 OE 


Como sabrás, el objeto de este juego es destrozar todos los ladrillos con la pelota. La 
pelota la mueves con la raqueta, que se mueve horizontalmente en el fondo de la pantalla. 

El bote de la pelota es casi impredecible, ya que lo hace según diferentes ángulos. La 
raqueta disminuye de tamaño cuando alcanzas los 11 puntos o cuando la pelota llega a la 
parte superior de la pantalla. 

Los ladrillos tienen diferente puntuación según su color: 


Ar cos 
ROJO. ccocoióommarrras 
Magenta.......o..o.... 
Verde. ocisoiosonosciós 


=- NY Y Y 


En el fondo de la pantalla está la información de la bola que estás jugando; tienes 
cuatro por partida, la máxima puntuación, y la puntuación actual de la partida que estás 
jugando. 

Manejas la raqueta con las teclas: 


Q—Para ir a la izquierda. 
P—-Para ir a la derecha. 


Este programa lo puedes modificar fácilmente: 


oCO0o0Oo oo Oo 


Teclas: puedes cambiar las teclas cambiando las líneas 620 y 630. 
Bolas: puedes jugar más bolas o menos, según prefieras, cambiando la línea 800. 


1 REM x*%*% FRONTENIS %*x%e LET Y$=" XXXX" 


53 LET MAX=0 180 LET B2=0: LET B3=0: IF E$=" 
10 DEF FN a(x,y)=ATTR (y,x0—IN | yu THEN LET ra Le A 
T (ATTR (y,x)/8)*8 


20 GO SUB 2000 200 LET X=16: LET Y=14 

30 DIM b(7): LET b(1)=5: LET b 210 LET DX=1: LET DY=1:2 IF RND> 
(2)=3:2 LET b(6)=0: LET b(7)=1 .5 THEN LET DX=-1 

40 LET PUNT=0: LET BOLA=1 220 PRINT AT Y,X3 INK 13 FLASH 


100 PAPER 7 
110 CLS : LET SS=0: LET Si=0 LET B=14: PRINT AT 20,B3"XX 
120 PRINT AT 3,05 INVERSE 15 
K 13" PRINT AT 21,0;"PUNTOS: "5PU 
” 
130 PRINT AT 4,035 INVERSE 15 PRINT AT 21,105"MAX: "3MAX 
K 23" PRINT AT 21,20; "BOLA Néé ";B 
”» 
140 PRINT AT 8,03 INVERSE 15 FOR I=1 TO 200: NEXT 1 
K 3" PRINT AT Y,X3" " 
" 310 LET X=X+DX: IF X>31 OR,X<O 
150 PRINT AT 9,05 INVERSE 15 IN | THEN  LET X=X-DX-DX: LET DX=-DX: 


K agro" BEEP .02,19 O 
150 LET NUM=0 320 LET Y=Y+DY: IF Y<O THEN LE 
165 PRINT AT 20,03" " T Y=Y-DY-DY: LET DY=-DY: BEEP .0 ¡ O 


170 LET Bi=28: LET X$="XXXX ": 2,24 
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330 IF Y<20 AND Y>9 THEN GD TO 
550 

340 IF Y=1 AND B3=0 THEN LET B 
3=1: LET X$="88 ": LET Y$=" BI": 
LET Bi=31: PRINT AT 20,B3X$5: IF 


B<30 THEN PRINT " " 

350 IF Y<3 THEN GO TO 550 

360 IF Y>=5 AND Y<=7 THEN GO T 
O 3550 

370 IF Y<>20 THEN GO TO 440 
380 IF Si=1 THEN GO SUB 1000 


390 IF SCREEN$ (Y,X-DX)="_" THE 
N LET Y=Y-DY-DY: LET DY=-DY: BE 
EP .02,7: GO TO 900 

400 IF SCREEN$ (Y,X)=" " THEN 
GO TO 700 


410 LET Y=Y-DY-DY: LET DY=-DY: 


LET X=X-DX-DX: LET DX=-DX: BEEP 
. 02,7 

420 IF X<0 OR X>31 THEN LET X= 
X-DX-DX: LET DX=-DX 


430 GO TO 900 

440 IF Y=4 AND B2<>1 THEN LET 
B2=1: LET X$="XX LET Y$=" XX" 
: IF B<29 THEN PRINT " " 

450 IF FN ACINT (X-DX),Y)>0 THE 


N LET TX=X-DX: LET TY=Y: GO TO 
480 

450 IF FN ACINT X,Y)>0 THEN LE 
T TX=X: LET TY=Y: GO TO 480 


470 GO TO 550 

480 PRINT AT TY, INT (TX/2)*23" " 
490 LET PUNT=PUNT+B(Y-2): PRINT 
AT 21,05"PUNTOS: "5PUNT: BEEP . 
02,12 

500 LET Y=Y-DY-DY: LET DY=-DY 
510 LET SS=55+1: IF SS<64 THEN 
GO TO 550 

520 LET Si=1 

550 PRINT AT Y,X; 
E 15 " 0 

£00 FOR I=1 TO 2 
610 LET A$=INKEY$: IF A$="" THE 
N IF PEEK 23560<>0 THEN LET A$ 
=CHR$ PEEK 23560: POKE 23560,0 
£20 IF A$="Q" AND B<>0 THEN LE 
T B=B-1: PRINT AT 20,B3X$ 

630 IF A$="P" AND B<>Bi THEN L 
ET B=B+1: PRINT AT 20,B-13Y$; 
640 NEXT I 

£50 GO TO 300 
700 PRINT AT Y,X;3 
1 5 a 

710 FOR I=50 TO 1 STEP -1 
720 BEEP .02,1 


INK 15 INVERS 


INK 13 FLASH 


730 NEXT 1 

800 LET BOLA=BOLA+1: IF BOLAXS 
THEN GO TO 160 

810 IF PUNT>MAX THEN LET MAX=P 
UNTs PRINT AT 21,145"MAX PUNT: " 
¿MAX 

820 PRINT AT 1,65"OTRO JUEGO? S 
IN" 

830 IF INKEY$="N" THEN BORDER 
: STOP 

840 IF INKEY$="S" THEN GD TO 40 
850 GO TO 820 

900 IF NUM>10 THEN GO TO 550 
910 LET NUM=NUM+1 

920 IF NUM=3 THEN LET DX=DXx*2 
930 IF NUM=6 THEN LET DX=DX/2 
940 IF NUM<>10 THEN GO TO 550 
950 LET DX=DX*2: IF B2>=29 THEN 

60 TO 550 

960 IF Bi=28 THEN LET B1=29: L 
ET X$="XXX ": LET Y$=" XXX" 

965 PRINT AT 20,B3X$ 

970 GO TO 550 

1000 PRINT AT 4,03 INVERSE 13 IN 
kay. 

1010 PRINT AT 3,0; INVERSE 15 IN 
K 25 “ ” 

1030 PRINT AT 8,03 INVERSE 1; IN 
de. E 

1040 PRINT AT 4,03 INVERSE 15 IN 
K 45 ». a 

1050 LET S1=0: LET SS=0: RETURN 
2000 BORDER 1: PAPER 6: CLS 


2020 PRINT AT 2,12; OVER 13" 
"” 


2040 PRINT AT 8,5;"TECLAS: 0Q=1ZQ 
UIERDA P=DERECHA"; 

2050 PRINT : PRINT : PRINT 

2060 PRINT "VERSION FACIL? (S/N) "3 
2070 LET E$=INKEY$: IF E$="" THE 
N (GO TO 2070 

2075 IF INKEY$<>"" THEN GO TO 2 
075 
2080 
2090 
o TO 
2100 GO TO 2060 

2110 PRINT : PRINT : PRINT * PUL 
SA UNA TECLA PARA EMPEZAR" 

2115 PAUSE 30 

2120 PAUSE O 

2130 RETURN 

9000 FOR N=0 TO 21: 
1: PRINT AT N,M3 "Ii: 
XT ON 


PRINT ES 
IF E$="S" 
2110 


OR E$="N" THEN 6G 


FOR 
NEXT M: 


M=0 TO 3 
NE 


, 
1 
1 
Ú 
1 
1 
! 
1 
' 
' 
' 
! 
' 
| 
' 
' 
1 
I 
l 
' 
' 
' 
| 
1 
1 
' 
' 
' 
' 
| 
1 
1 
1 
1 
1 
! 
1 
1 
' 
' 
] 
' 
' 
' 
' 
' 
1 
1 
1 
' 
' 
' 
' 
' 
' 
1 
I 
' 
' 
l 
' 
' 
' 
' 
' 
] 
] 
' 
' 
' 
' 
' 
1 
1 
1 
| 
' 
I 
' 
1 
1 
' 
1 
' 
' 
1 
I 
' 
1 
] 
1 
t 
I 
1 
I 
I 
1 
' 
I 
' 
' 
1 
1 
! 
' 
' 
J 
I 
' 
' 
' 
1 
1 


O 600 6-0 


16. Ataque aéreo 


Mucha gente se queja de que un programa de juegos en BASIC o es muy lento o es muy 
simple. Esto es cierto sólo para algunos casos, pero con este programa se ve que lo anterior 
no es una regla que ocurra siempre; el juego ATAQUE AEREO, aun estando escrito en 
BASIC, es rápido y entretenido. 

En este juego tú debes defender una ciudad frente a los bombardeos de los aviones 
enemigos. Irás ganando puntos si das con tus bombas a los aviones y a los misiles enemigos; 
estos últimos puntúan más que los aviones. Pero no dispares a lo loco, porque cada disparo 
que hagas te quita un punto. 


| 

| 

| 

| 

| 

| 

| 

¡ 

E 
o000o0 
| LJ LE) J 


4 1 A a e RE A A E 


Para la defensa de la ciudad tienes un arma desconocida llamada el desconocido cañón 
láser. Este cañón lo guías con las siguientas teclas: 


L—-Para ir a la izquierda. 
A—Para ir a la derecha. 
S—Para disparar a la izquierda. 
K—-Para disparar a la derecha. 


M—-Para disparar perpendicular al suelo. 


Cada ataque enemigo consiste en diez bombarderos. Pierdes cinco cada 


puntos por 
bomba que dé en el blanco. 


AAN] 
me pa e BEA FA 
a A 
P) de O BRAFICIO 
A a e GRAFICO E 
e A RAFI EF | 
P] PP A EA TIO CA 
E li A RAFI 1 
AA Las e o RAE AA 
m 


t 1 
t ' 
t ' 
1 mM 1 
¡7 GO SUB 8000 109 FOR Nal TO 5 | 
O | 10 DIM 6$(3): LET G$(1)=".4": y ( 
, " 110 PRINT  INK 45 PAPER 43" 
| LET G$(2)="."3 LET GS(3)=":23 L 5 A 
O | ET G=15: LET ATTACK=0 112 NEXT N 
; 11 REM GRÁFICOS D,EsF 130 PRINT AT 17,63 PAPER 4; INK | 
¡12 REM AIR PLANE=A, BRA, J,K 036$ (1) 
O 1 15 DIM P$(2,2%: LET P$(1)=">6 | 131 REM GRAFICO GH 
lo" LET PS(Z)="2a3"5 LET P=1: BOR | 132 PRINT AT 18,05: FOR N=1 TO | 
O | DER 0: LET HOUSE=33 10: PRINT  INK 13 PAPER 45"mm8"5 | 
20 LET Q=1: POKE 23658,8: LET INK 43 PAPER 43" "51 NEXT Nz PR! 
O | SF=0: LET BF=0: LET A=0 INT INK 13 PAPER 45" my" ] 
| 25 LET SCORE=0 134 PRINT AT 20,03: FOR N=1 TO '! 
¡99 REM DIBUJO DE LA PANTALLA 9: PRINT  INK 45 PAPER 43" "3 PA! 
O | 105 FOR N=1 TO 17: PRINT PAPER | PER 43 INK 13"£X9"5: NEXT Nz PRI '! 


1 REM x** ATAQUE AEREO *x* 
8 GO SUB 9000: GO SUB 7000 


oo oo O 


O 


o. ooo. Oo 


NT INK 43 PAPER 43" "5 
APER 43 "ma" 

135 PRINT AT 7,05 PAPER 5; INK 
05" PULSA UNA TECLA PARA EMPEZAR 
."1 PAUSE 0: PRINT AT 7,03 PAPER 

5; y 


” 
140 
144 
145 
150 
155 
1650 
165 
169 


INK 13 P 


GO SUB 500: GO SUB 1000 
REM TRONCO DEL PROGRAMA 
IF SF=0 THEN GO TO 140 
GD SUB 500 

IF DP=0 THEN GO TO 165 
GOD SUB 2000 

IF BG=1 THEN GO TO 144 
REM GRAFICO C= "." 

170 LET SF=1: PRINT AT BY,BX3 P 
APER 8," LET BY=BY+1: PRINT A 
T BY,BX5 PAPER 83 INK 03" ." 

175 IF ATTR (BY+1,BX)=HOUSE THE 
N GO SUB 4000 

175 IF ATTR (BY+1,BX)=32 THEN 
GD TO 5000 

180 IF BY>20 THEN LET BG=1 

185 IF BY>20 AND RET=0 THEN LE 
T SF=0 

190 IF BY=21 THEN PRINT AT BY, 


BX; PAPER 45" " 
198 IF BG=1 AND RET=0 THEN LET 
SF=0 
199 GO TO 144 
499 REM MOVIMIENTO Y DISPARO 
500 PAUSE 1 
501 LET 'Z$=INKEYS 
505 PRINT AT 17,6; INK 43 PAPER 
45 0 : 

510 IF Z$="L" THEN LET G=G+1 
515 IF Z$="A" THEN LET G=G-1 
520 IF G<0 THEN LET G=0 

521 IF G>31 THEN LET G=31 

525 IF Z$="kK" OR Z$="S" OR Z$=" 

M" THEN GO SUB 400 
530 PRINT AT 17,63 PAPER 43 INK 
036% (0) 

540 RETURN 

£00 IF SF=0 THEN RETURN 

601 IF Z$="M" THEN LET Q=1 

605 IF Z$="k" THEN LET Q=2 
610 IF Z$="S" THEN LET Q=3 
612 LET SCORE=SCORE-1 

615 PRINT AT 17,63 PAPER 63 INK 
1;6$(0) 

619 BEEP .025,0 

£20 GO SUB 700: GO SUB 2000: GD 
SUB 700 

640 RETURN 


700 IF QO=1 THEN GOD SUB 750 


IF Q=3 THEN (GO SUB 770 

IF Q0=2 THEN (GO SUB 790 
RETURN 

REM DETECTADO 

PLOT OVER 1;G*8+3,40 

DRAW OVER 130,133 

IF G=BX THEN GO SUB 6000 
IF G+i=B+1 THEN GO SUB 250 


IF G=B THEN (GO SUB 2500 
RETURN 
PLOT OVER 
LET L=Gx*8: 
ET L=133 

774 DRAW OVER 13-L,L 

776 LET V=G-(17-A): IF V=B THEN 

GO SUB 2500 

778 LET V=G-(17-—BY): 
EN GO SUB £000 

785 RETURN 

790 PLOT OVER 15G*8+7,40 

792 LET L=(31-6)*B8: IF L>133 TH 
EN LET L=133 

794 DRAW OVER 13L,L 
796 LET V=G+(17-A) : 

GO SUB 2500 

797 LET V=G+(17-BY):2 
EN GO SUB 4000 
798 RETURN 
1000 LET R=RND+*100: 
T BG=1:3: LET RET=1: 
T BX=0: LET BD=-1: 
1001 IF R>85 THEN 
1003 PRINT AT A,0;5 


1;6*8,40 
IF L>133 THEN L 


IF V=BX TH 


IF V=B THEN 


IF V=BX TH 


LET DP=1: LE 
LET BY=18: LE 
LET PD=-1 
LET SF=1 
PAPER 53" 

“5 AT 
PAPER 6 
05 PAPE 


21,113 BRIGHT 13 
¡"PUNTOS "3SCORE; 
R 45 ”m ”" 

1005 LET BF=INT (RND*31) 

1010 LET DF=INT (RND*2)+1 

1011 IF DF>1 THEN LET DF=2 

1015 IF DF>1 THEN LET B=1 

1020 IF DF=1 THEN LET B=30 

1025 LET A=INT (RND*13) 

1027 1F SF=1 THEN LET ATTACK=AT 
TACK+1 

1028 IF ATTACK=11 THEN GO TO 75 
00 

1029 PRINT AT 0,05 
Os ATTACK3" " 

1030 RETURN 

2000 IF RET=0 THEN 
2001 PRINT AT A,B; PAPER 5;" 

IF DF>1 THEN LET B=B+1 
2005 IF DF=1 THEN LET B=B-1 
2010 IF B=0 OR B=30 THEN LET SF 


INK 35 
BRIGHT 


PAPER 53 INK 


RETURN 
" 
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=0 

2011 PRINT AT A,B5 

05 P$ (DF) 

2012 IF 

2016 IF 

2020 IF 

2025 IF BG=0 

2030 IF BG=0 

2035 RETURN 

2500 IF PD=1 THEN GO TO 2510 

2501 PRINT AT A,B; PAPER 5; "BOOM 
1"; BEEP .2,-6: LET SCORE=SCORE+ 
: LET DP=0 

2505 LET SF=0: LET RET=0 

2510 LET PD=1: RETURN 

3000 PRINT AT A,03 PAPER 55" " 

3002 LET RET=0 

3005 RETURN 

4000 GO SUB 4050: PRINT AT BY,BX 
3 PAPER 4: BEEP .4,-25 

4002 LET BG=1: LET SCORE=SCORE-5 

4005 GO SUB 4050: PRINT AT BY,BX 
3 PAPER 43 INK 43% " 

4010 RETURN 

4050 PRINT OVER 13AT BY+1,BX5 1 

NK 25 PAPER 45"S":z RETURN 

5000 PRINT AT 17,65 INK 2;"AAAR! 
115 AT BY,BX; PAPER 53" " 

5005 FOR N=1 TO 10: BEEP .1,N: N 
EXT N:z INK 2: PAPER 7: CLS : PRI 
NT AT 10,5;"QUE CLASE DE FLORES 
1» »"TE GUSTAN??">>>" MUERT 
O EN BATALLA"*”*>"LO SIENTO PERO 
NO HAS PUNTUADO!"z BEEP 3,-27: 
CLS : GO TO 10 

£000 IF BD=1 THEN GO TO 6010 

6001 PRINT AT BY,BX5 INK 75 PAPE 

R 13"ZAP!": BEEP .2,10 

£005 LET BG=1: PRINT AT BY,BX; P 

APER 55" ": LET SCORE=SCORE+5 

6008 IF BG=1 AND RET=0 THEN LET 
SF=0 

£009 LET BD=1 

£010 PRINT PAPER 53AT BY,O5" 

"z 

RETURN 

7000 LET TEMP=0: INK O: PAPER 7: 
BORDER 7: CLS : PRINT AT 10,73" 

AIR RAID";AT 12,93"BY J.WALLS">* 
ya PAUSE 30 
O: CLS : RETURN 

7500 PRINT AT 10,65 PAPER 6; BRI 
GHT 13 INK 13" SE ACABO EL BOMBA 

RDEO "5AT 13,35" ULTIMA PUNTUACI 

ON "5TEMP: LET TEMP=SCORE: FOR N 


PAPER 53 INK 
SF=0 
BG=0 
B=BF 


THEN 
THEN 
THEN 
THEN 
THEN 


GO SUB 3000 
RETURN 

LET BG=0 
LET BY=A 
LET BX=BF 


66 


=1 TO 750: CLS 
2 GO TO 10 

8000 INK 1: PRINT " Que equivoca 
do estaba el enemi-go cuando man 
do su escuadron de bombarderos ( 
gua e.) Contra ti,” 

8001 INK 1: PRINT " ya que pensa 
ron que hundirian tu resistenci 
a pero se equivoca-ron porque de 


NEXT Nz: PAUSE 40: 


sconocian tu nueva arma: "3 INK 
25"el tanque con laser. (.L)" 
8005 PRINT : PRINT : PRINT "L PA 


RA MOVER A LA IZQUIERDA"””"A PAR 
A MOVER A LA DERECHA"”**"K PARA D 
ISPARAR HACIA LA DERECHA"”>"M PA 
RA DISPARAR VERTICAL" 
8004 PRINT $t1;"Pulsa una tecla p 
ara continuar": PAUSE O 
g010 CLS : PRINT " Cada vez que 
disparas pierdes un punto.">”>”" 
Asi que debes llevar bien la c 
uenta de ellos y no disparar a 1 
o loco." 
8011 PRINT ”*"Intenta dar sobre t 
odo a las "3 INK 13"(.)"5"bomba 
s porque dan mas puntos,pe-ro fi 
jate que no te de ninguna."”" Ha 
y diez aviones en cada ataque. C 
ada vez que te de una bomba pie 
rdes cinco puntos."*>>" 
SUERTE! ” 
8015 INPUT 
: RETURN 
8999 REM GRAFICOS 
9000 DATA 0,1,3,63,127,24,48,94 
9005 DATA 192,130,10,254,254,64, 


"PULSA ENTER"35E$: CLS 


0,0,0,0,0,0,8,164 
16,16,16,16,60,60,255, 


128, 64,32, 16,60,60,235 


1,2,4,8,60,60,255, 255 
63,127,255,127,103,127 
,102,126 
9035 DATA 
4,102,126 
9040 DATA 
254,254 
9045 DATA 
9050 DATA 
2,6 

9055 RESTORE : 
AD A: POKE USR "A"+N,Az 
RETURN 


252,254,255,254,230, 25 
16,56,124,254,254,254, 


3,65,80,127,127,2,1,0 
0,128,192,252,254,24,1 


FOR N=0 TO 87: RE 
NEXT N: 


BUENA: 
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17. 500 millas de Indianápolis 


Estás en la parrilla de salida de la carrera más importante de Estados Unidos: las 500 
millas de Indianápolis. Quieres ganar; para ello, debes ir lo más rápido que permita el motor 
de tu coche; tienes que evitar chocarte con las barreras, y no pasar por las manchas de 
aceite. 
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Manejas el coche con las teclas: 


5—Para ir a la izquierda. 
6—Para bajar. 

7—Para subir. 

S—Para ir a la derecha. 


Si vas en una dirección determinada y quieres seguir recto, no hace falta que sigas 
pulsando la tecla de esa dirección, ya que el coche continúa en la misma dirección que va, a 
no ser que se pulse otra tecla. 

En la primera vuelta no habrá manchas de aceite, pero una vez que la acabes aparecerán 
varias y a ésas se les sumarán otras cada vez que des una vuelta completa. 

El circuito es el siguiente. Este no varía de juego a juego, pero si quieres tú puedes 
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| 1 REM x** 500 MILLAS +. 40 LET s=0: LET lap=0: LET lin | O 
2 REM x%* DE INDIANAPOLIS *x% ea=3: LET column=7 ! 
3 LET hs=0 50 GO SUB 900: PRINT AT 2,73 1 | y 
| 4 GO SUB 1500 NK 05 "*"5AT 4,73 "*" 
¡ 5 BORDER 6: PAPER 6: INK 2: € 60 PRINT AT 0,35 INK 03 "PUNTOS ! 
LS “5AT 0,1895 "MAX-PUNT "5hs o) 
¡ 10 RANDOMIZE 70 BEEP .2,0: BEEP .2,12: BEEP ' 
¡15 FOR x=1 TO 6: READ p$ .2,0: BEEP .2,0: BEEP .8,-12 Lo 
¡ 20 FOR y=0 TO 7: READ pz POKE 100 IF INKEY$="5" THEN LET m$= | 
¡ USR p$+y,pz NEXT y 05% LET n$="3p" 
¡| 30 NEXT xa LET mé="9": LET n$= 110 IF INKEY$="5" THEN LET m$= ¡ O 
: "o 26% LET ns$=":p" , 


o. o. oO 
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120 IF INKEY$="7" THEN LET m$= 
La A 2 LET n$= . po 

130 IF INKEY$="8" THEN LET m%$= 
”.g" 2 LET n$= " Fr" 

140 PRINT AT linea,colum;3" " 
150 LET linea=linea+(m$="5")-(m 
$="7"): LET columm=column+ (m$="8 
")3-(m$="5") 


1650 LET a=ATTR (linea,column): 
LET s$=SCREEN$ (linea,column)s P 
RINT AT linea,column3 INK 1i3n$: 
BEEP .01,53: IF linea=3 AND colum 
n=7 AND m$="8" THEN GOD SUB 800 

170 IF s$=" " THEN GO TO 100 

500 PRINT AT linea,column;3 INK 
1; FLASH 13n$ 


505 FOR i=25 TO -25 STEP -1: BE 
EP .02,i2 NEXT i 

510 PAPER 7: INK 4 

520 IF a<x>48 OR s$="x*" THEN GO 


TO 550 

530 PRINT FLASH 13AT 10,65 "You 
hit an oil patch": GO TO 570 
550 PRINT FLASH 15AT 10,053" T 
e chocaste con la barrera " 

570 PRINT FLASH 15AT 12,05"Pul 
sa una tecla para otro juego" 


573 IF INKEY$<>"" THEN GO TO 5 
75 

580 IF INKEY$="" THEN GO TO 58 
[o] 

585 IF s>hs THEN LET hs=s 

590 RESTORE : GO TO 5 

800 FOR f=1 TO S: FOR i=0 TO 7: 
BORDER iz BEEP .02,i*23 LET c=1 


NT (RND*30) +1 

810 FOR i=1 TO INT (RND+*3)+2 
830 LET 1=INT (RND*x20)+1: LET c 
=INT (RND*30)+1 

840 IF SCREEN$ (1,c)<>" " THEN 
GO TO 830 

850 PRINT AT 1,c; 
EXT i 

860 LET lap=lap+1: LET s=s+lap: 
PRINT AT 0,95 INK O,s 

890 RETURN 

900 PRINT AT 0,03 "ollo iio 
li ilQ <G-A AD A 
HA ll << Bl AA 
li 
905 PRINT 


INK 053"%": N 


* Alla Al 
ÓN 

"ll 
Dl 
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ri ” 


910 PRINT 


915 PRINT 


920 PRINT "viga 
Ai 


li ADA 
a 


925 PRINT "iii ville di 
oli li ii OS 
930 PRINT " sil «AAA 
mi 
935 PRINT " añrardi lA 
li 
940 PRINT "tedio bale 
li 
945 PRINT "diia sl A] 
OY 
950 PRINT "isos «Hi Midi 


ALA ic e 


955 PRINT "sirio all 

alii if 
960 PRINT " site AB «ll 

ai 
965 PRINT ” eiomidio lll ll 
o o 
970 PRINT "silo A A) 
boli OS 


975 PRINT "aa 
e dd 


A 
fo lle u 


980 PRINT " vara 

Ad 

"di 

e 

1 lab Aa 

A 

995 PRINT AT 20,03 "silla 
ADA «8 - 
ibid «o += 
led 

997 RETURN 

1000 DATA ":k",BIN 11000,BIN 101 
1010,BIN 1111110,BIN 1011010,BIN 
11000,BIN 10011001,BIN 11111111 
,BIN 10011001 

1010 DATA "F",BIN 11100000,BIN 
1001110,BIN 1000100,BIN 1111111, 
BIN 11111111,BIN 1000100,BIN 100 
1110,BIN 11100000 

1020 DATA "'F",BIN 10011001,BIN 
11111111,BIN 10011001,BIN 11000, 
BIN 1011010,BIN 1111110,BIN 1011 
010,BIN 11000 

1030 DATA "+*i",BIN 111,BIN 11100 
10,BIN 100010,BIN 11111111,BIN 1 
1111111,BIN 100010,BIN 1110010,B 
IN 111 

1040 DATA "4*",BIN 111000,BIN 11 
11110,BIN 11111110,BIN 11111111, 
BIN 1111111,BIN 111110,BIN 11110 
O,BIN 11000 

1050 DATA "«*",O,BIN 111100,BIN 


985 PRINT 


990 PRINT 
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0.0 O 


o.0 0 O 


69 


1111110,BIN 111111114,BIN 1111111 
1,BIN 1111110,BIN 111100,0 


1500 BORDER 0: PAPER Oz INK 7: C 
LS : BEEP .2,10 

1510 PRINT AT 0,115 INK 65; "FORMU 
LA I"5AT 0,115 OVER 13". 


1520 PRINT " Debes conducir el 


3 INK 43 PAPER 13 FLASH 15"formy 
la uno"j FLASH 05 PAPER 05 INK 7 
3" (1H) por el circuito, sin ch 


ocar-te con las barreras (ur) " 
1530 PRINT *"Gobiernas el coche 


70 


con el cursor (5..8)" 

1540 PRINT "Para sacar altas pun 
tuaciones eneste juego se necesi 
tan reflejosrapidos (y mucha sue 
rte).” 

15650 PRINT AT 21,353 INK 43 FLASH 
1;5"PULSA UNA TECLA PARA EMPEZAR 


1570 IF INKEYS$="" 
70 

1580 IF INKEY$="" 
go 

1590 RETURN 


THEN GO TO 15 


THEN GO TO 15 


18. Ratas 


Este simpático juego ha sido escrito por Graham Culing, en él tienes que guiar a las dos 


ratas, que andan provistas de un cubo. 


Las ratas tienen que coger los ladrillos que caen del techo con el cubo que llevan entre 
las dos. Con esos ladrillos ellas construirán una pared; cuantos más ladrillos cojas, la pared 


será más alta. 


Los puntos que recibes por ladrillo van aumentando al mismo tiempo que aumenta la 
altura de la pared. Además de crecer el valor de los ladrillos, también cambia el color de 


éstos. 


Como puedes ver en la impresión de la pantalla, el uso que hace este programa de los 


gráficos definidos (U.D.G.) es francamente bueno. 


PALA! 


18 


Ml 


Memccdl Mill limcall all : 

Mecca El El Local mall call dl dl ad al al all El 
Muizaradl ell Brant! Bell call dl all Ecol! ll od! Ed! and! Brad 
cen re e es. ee) Mcdl Hina Bici Acond [cial 
. Mccadl ldl dl [cdl 
mall ica dl les 


pps 
cd 
pro 

uesacacd 


al Msescall 1 
Ml Micol! Mezcal 
Mesacadl Únindl Bosco 


ea] ANITA 
CAR 


Mea 


O 


Si coges seis ladrillos seguidos ganarás una suculenta bonificación, que se sumará a tu 
puntuación al final de la partida. Si fallas seis ladrillos seguidos perderás una vida; al 
empezar el juego tienes cinco vidas. 

En una partida caen 300 ladrillos. El juego acabará: o cuando pierdas todas las vidas, o 
cuando hayan caido los 300 ladrillos. El número de ladrillos que quedan te viene dado en la 
parte superior de la pantalla, y el número de vidas perdidas en la parte inferor. 

La puntuación también te viene indicada en la parte superior de la pantalla. El progra- 
ma guarda la máxima puntuación conseguida hasta ese momento en una variable, así que 
puedes intentar superar la puntuación más alta de todas las partidas jugadas hasta ese 


momento. 


Aquí voy a hacer un pequeño resumen de lo que hace cada parte del programa: 


10-140: Lee los gráficos definidos. 
150-245: Visualiza las instrucciones. 
1000: Sube la posición de las ratas y la pared. 


2000-2200: 


Aumenta la puntuación. Cuenta el número de ladrillos cogidos, 


Pone otro ladrillo en la pared. Y ve si has llegado a los 2.000 para ganarte una 


vida extra. 


3000-3200: 
4000-4200: 
5000-5200: 
6000-6330: 


necesario. 


7000-7100: 


Cuenta tus fallos. 

Escribe las tumbas en “vidas perdidas”. Reduce las vidas en uno. 
Da bono por coger seis ladrillos seguidos. 

Rutina de GAME OVER. Cambia la máxima puntuación si es 


Rutina de la vida extra. 
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1 REM xx RATAS ** 
5 BORDER O: PAPER 0: 

T n$="": LET h=0 
10 FOR k=1 TO 8: 
j=0 TO 7: READ b: 

: NEXT j2 NEXT k 

20 DATA "a",0,127,127,796,96,12 
7,127,0,"b",0,254,254,6,6,254,25 
4,0,"c",0,126,1265,102,102,126,12 
6,0,"d",1795,2559,66,86,126,34,213 
, 141 

30 DATA "e",129,129,195,255,36 
136,231,231,"Ff",195,255,66,106, 1 
26,68,171,177,"g",0,0,255,66,66, 
66,126,0,"h",60,118,227,201,221, 
201,201,201 

140 LET i=0 

150 INK 4: PRINT : PRINT TAB 5; 
Me pp, a] mu gunas y pp 

155 PRINT TAB 53% Mu" 

Masa Masia 

160 PRINT TAB 5;" 

Mod mul: PRINT : 
GO TO 270 

163 FOR j=0 TO 212 PRINT AT j,O 
UA "SAT jy315 "19": NEXT j: FOR j 
=0 TO 31: PRINT AT 0,j3 "19 "531 2 
1,j353"00": NEXT j 

165 INK 6: PRINT AT 4,253" Dirig 
e tus dos ratas de iz-" 

170 PRINT AT 5,13"quierda a der 
echa usando las"jAT 6,1;5"teclas 
-] y o" 

175 PRINT AT 7,2;3"Coge los ladr 
illos con el cu-" 

180 PRINT AT 8,1;5"bo y construy 
e el muro." 

185 PRINT AT 10,2;"cuanto mas a 
lta sea la pared, "”*53AT 11,153"MAY 
OR SERA TU PUNTUACION" 

190 PRINT AT 13,2;"Ganaras bono 
s por 6 ladrillos";AT 14,1;3"que 
pongas en columna." 

195 PRINT AT 16,2;5"Pero mantent 
e alerta porque" 9 

200 PRINT AT 17,15"6 fallos sig 
nifican que pier-"3AT 18,15"des 
una vida, tienes 5." 

210 PRINT 4$15"Pulsa una tecla p 


CLS : 


READ at: FOR 
POKE USR a$+j, 


Bull 


Ms UN 
IF i=1 THEN 


ara continuar": PAUSE O: CELS 
220 INK 4: PRINT : PRINT TAB 55 
" pe, Pa] o ia pa 

225 PRINT TAB 53% Po"! Munall M 
A] Msn" 

230 PRINT TAB 553" E". UN A 


AM E wall? PRINT : 1F i=1 THEN 
GO TO 230 

235 FOR j=0 TO 21: PRINT AT j,O 
SU mms AT 3,313": NEXT j: FOR j 
=0 TO 31: PRINT AT 0,j3 "953971 2 
1,353": NEXT j 


240 PRINT AT 4,2;3"Si llegas a 1 
os 2000 puntos," 

241 PRINT AT 5,15"0 si haces un 
a fila de 6 la-" 

242 PRINT AT 6,15"drillos "3 IN 
K 43"verdes"3 INK 63" o "3 INK 3 
53"magentas”3 INK 63" ga-"3AT 7,1 
3"nas una vida extra." 

245 PRINT $15 FLASH 135 "PULSA UN 
A TECLA PARA EMPEZAR": PAUSE 0: 
CLS 

250 RESTORE 260: 
FOR J=1 TO 4: READ L:z BEEP 0.1,L 
: NEXT J: PAUSE 3: NEXT K: BEEP 
0.2,10: BEEP 0.4,7: PAUSE 10 

255 FOR K=1 TO 2: FOR J=1 TO 4: 

READ L: BEEP 0.1,L:z NEXT J:z PAU 
SE 3: NEXT KR: PAUSE 1: BEEP 0.15 
4: PAUSE 1: BEEP 0.15,4: PAUSE 
1: BEEP 0.15,2: PAUSE 1: BEEP O. 
15,2: PAUSE 3: BEEP 0.2,0 

260 DATA 4,5,7,3,4,5,7,3,4,5575 
10,4,5,7,3,4,5,7,3 

265 LET I=1i: GO TO 150 


FOR K=1 TO 3: 


270 PRINT  INK 23" POR GRAHAM C 
URL ING" 

280 INK 6: PRINT : PRINT " MAX 
PUNTUACION="5H 

300 PRINT : PRINT " POR "5N$ 
305 PRINT 415 FLASH 1;"PULSA UN 
A TECLA PARA EMPEZAR": PAUSE O: 
CLS 

500 INK 4: PLOT 0,159: DRAW 255 
,0: DRAW 0,-143: DRAW -255,02 DR 
AW 0,143 

510 INK 7: PRINT AT 0,03 "%"5AT 
0,31; mu 


520 PRINT AT 1,03":"5AT 1,313" 
'. 


Ú 

530 INK 2: FOR k=1 TO 29 STEP 2 
2 PRINT AT 1,k53":": NEXT k 

540 INK 5: PRINT AT 0,23 "PUNTOS 
="3AT 0,143 "LADRILLOS= "¿AT 21,1 
3"BONOS= "¿AT 21,143"VIDAS= " 

550 INK 4: PRINT AT 20,15"RECIB 
IDOS= "¿AT 20,145 "ERRADOS= " 

560 LET Q=0: LET D=0: LET CA=0: 
LET M=1: LET LL=26: LET U=O0: LE 
T E=si: LET Z=2: LET S=0: LET Y=1i 


73 


OOO O O 


O 
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00600000 00.00000 


8: LET X=3: 
570 FOR 
LET 
FOR 


LET A=19: 
K=1 TO 300 
C=INT— (23%*RND) +4 

P=3 TO Y 

LET BR=300-K 

INK Z: PRINT AT P,C3"x" 

IF INKEY$="9" AND X>3 THEN 
X=X-1 

IF INKEY$="0" 
LET X=X+1 
INK 73 


LET B=3 


AND X<26 THEN 
PRINT AT Y,X-15" tritrr 


PRINT AT Y-1,X-13" 5" 


660 PRINT AT P,C3" " 

670 NEXT P ' 

£80 IF B=29 THEN GO SUB 1000 
690 IF Y=15 THEN LET Z=5: LET 
E= 

700 IF Y=13 THEN LET Z=6:z LET 
E= 

710 IF Y=11 THEN LET Z=32 LET 
E=4 z 

720 IF Y=10 THEN LET Z=4: LET 
E= 

730 1F C=X+1 THEN GO SUB 2000 
740 IF C<>X+1 THEN GOD SUB 3000 
750 INK 6: PRINT AT 0,8;S5AT O, 
27; BR; " ” 

760 INK 7: PRINT AT 20,10;CA5AT 
20,225M 

770 NEXT K 

780 GOD TO 6000 

1000 LET B=3: LET A=A-1: PRINT A 
TY,X3" ": LET Y=Y-1: RETURN 


2000 LET M=0: LET CA=CA+1: LET S 
=S+(19-Y)*Ez INK Z: PRINT AT A,B 
30m": BEEP .005,10: BEEP .005, 
15: LET B=B+2 

2100 IF CA=6 THEN (GO SUB 5000 
2150 IF S>2000 AND D=0 THEN GO 
SUB 7000 

2200 RETURN 

3000 LET CA=0: LET M=M+1 

3100 IF M=6 THEN (GOD SUB 4000 
3200 BEEP .005,-10: BEEP .005,-2 
5: RETURN 

4000 BEEP 0.2,-20: 
BEEP 0.5,-40: BEEP 0.6,-50: 


BEEP 0.3,-30: 
LET 


M=0: INK 6: 
: LET LL=LL+i 
4100 IF LL-26=5 THEN GO TO 6000 
4200 RETURN 
5000 LET BO=(19-Y)*50: 
O: INK 4: LET CA=0 
5100 RESTORE 5500: LET V=.05: 
R J=1 TO 9: READ W: BEEP V,W: 
INT AT 3,13 FLASH 15"BONOS"5AT 3 
,73BO: NEXT J: PRINT AT 3,13" 

"¡AT 21,83U 
5150 IF (Z=4 OR Z=3) AND Q=0 THE 
N GO SUB 7000 
5200 RETURN 
5500 DATA 6,8,10,8,6,8,10,8,6 
£000 PRINT AT 3,1135 INK 25 FLASH 
1;"GAME OVER" 
6110 LET S=S+U 
6150 IF S<=H THEN PRINT AT 4,1; 

"4% -— DESGRACIADAMENTE NO SUPER 
ASTE LA MAXIMA PUNTUACION xxx" 
6200 IF S>H THEN LET H=S: INPUT 

"MAXIMA PUNTUACION**NOMBRE: "5 
N$ 
6250 PRINT — INK S5j3AT 5,13" OTRA 
PARTIDA? S/N" 


PRINT AT 21,LL3 "fi" 


LET U=U+B 


6240 INPUT P$ 
6270 IF P$<>"S" AND P$<>"s" THEN 

GO TO 4250 
IF P$="N" OR P$="n" THEN S 


IF P$="S" OR P$="s" THEN C 
PRINT +415"Instrucciones? S/ 


PAUSE O 
IF INKEY$="n" 
THEN GO TO 265 
6320 IF INKEY$="s" 
THEN GO TO 140 

6420 GO TO 4290 
7000 RESTORE 7200: 
3 FLASH 15 
ET Q=1 
7050 BEEP .25,7: 


OR INKEY$="N" 


OR INKEY$="S" 


PRINT AT 3,11 
INK 75"VIDA EXTRA": L 


BEEP .4,14: BEE 


P-.1,12: BEEP .1,11: BEEP .15,9: 
BEEP .3,19: BEEP .4,14 

7100 PRINT AT 3,113" "8 
LET LL=LL-1: LET D=1: RETURN 
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PARTE SEGUNDA 


AVENTURA 


1. Encuentro en el pozo mágico 


Si nunca has jugado a un juego de los llamados de aventuras, entonces te divertirás con 
esta sencilla (prácticamente aleatoria) aventura escrita por Gary Wilson. 

Te voy a explicar de una forma muy rápida en qué consisten los juegos de aventuras. En 
esta clase de juegos tú eres un personaje más, que estás viviendo en el mundo que crea el 
programador por medio de un individuo dentro del programa. Este realizará todo lo que tú 
le digas, hasta un cierto límite, dependiendo de lo bueno que sea el programa. Un buen juego 
de aventuras ocupa mucha memoria; además, gran parte de él está en código máquina, por 
eso los que vienen a continuación se puede considerar que son para que te pongan la miel en 
los labios y pruebes otros que tengan mayores dificultades. 

El resumen de este programa sería el siguiente: 

Estás perdido en un pozo mágico, vas recogiendo tesoros y luchando contra las fieras 
que te encuentras allí. Cuando te encuentras con un monstruo tienes dos opciones: 


* La huida. 
* La lucha. 


Si en la lucha resultas herido, tu energía disminuye; también disminuye cuando huyes. El 
juego se acaba cuando te has quedado sin energía. 

El programa, de vez en cuando, te dará información de tu energía y de los tesoros que 
llevas. j 

También, en otros lugares, llegarás a unas encrucijadas en las que tendrás que decidir 
qué camino tomas. 

Pero habrá momentos en los que aparecerá un warlord (señor de la guerra), y el juego 
acabará; contra él no tienes escapatoria. 
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1 REM xx ENCUENTRO EN EL e 
2 REM ** POZO MAGICO ** 
10 PAPER 1: BORDER 1: INK 7: C 
LS 
20 LET A$="NADIE": LET L=10: L 
ET E=0: LET C=0 
30 LET M=0: DIM W$ (480) 
40 PRINT ?>>+>>>>>>0" BIEN VEN 
IDO AL POZO DEL MAGO” 
50 PAUSE 100: CLS 


52 GO SUB 720 
55 GO TO 270 
60 LET M=INT (RND*6)+1 

80 IF L<i THEN GO TO 680 

90 LET A$=(" DRAGON " AND M=1) 
+(" GOBLIN " AND M=2)+(" CABALLE 
RO " AND M=3)+(" GUERRERO ENANO 
" AND M=4)+(" ESPIRITU " AND M=5 
)+(" DUENDE " AND M=4) 

150 PRINT ?”*"UN "3 FLASH 15 
IGHT 154$5 FLASH O; BRIGHT 03" 
E ATACA!" 

155 BEEP .5,RND*10: PAUSE 50 

1650 IF M=2 OR M=5 OR M=6 THEN 
LET C=C+1 

170 GO TO 220 

180 PRINT ?”" HAY UNA PUERTA. "” 
" QUIERES ATRAVESARLA? (S/N)" 


BR 


190 INPUT D$ 

195 IF RND>.8 THEN GO SUB 720 
200 IF D$="S" OR D$="s" THEN 6 
O TO 40 

210 IF D$="N" OR D$="n" THEN G 
O TO 270 

215 GO TO 190 

220 PRINT ”” "QUIERES PELEAR O C 


ORRER? (P/C)" 

230 INPUT B$ 

235 FOR H=1 TO 4: 
10-53: NEXT H 

240 CLS 

250 IF B$="P" OR B$="p" THEN G 
O TO 340 


BEEP .5,-RND+* 


260 IF b$="c" OR B$="C" THEN L 
ET L=L-.5: GO TO 400 

265 GO TO 230 

270 PRINT *”*" ESTAS ATRAVESAND 
0">?" EL POZO MAGICO..." 

272 BEEP .5,-—RND*10-5: PAUSE 50 
275 GO SUB 720 

280 LET P=INT (RND*3)+1 

310 PRINT "HAS CAIDO EN UN AGUJ 
ERO" 

315 PAUSE 100: CLS 

320 IF P=2 THEN GO TO 180 


330 IF P=3 THEN GO TO 400 

340 FOR G=6 TO 11: BEEP G/30,6: 

NEXT G 

342 LET M=INT (RND*6)+1 

345 IF M=1 OR M=3 OR M=4 THEN 
LET L=L-1: PRINT ”””"HAS SIDO HE 
RIDO!!!" 

350 BEEP .5,-RND*10-5: PAUSE SO 
360 IF M=2 OR M=5 OR M=4 THEN 
PRINT "HAS DERROTADO AL "3 FLASH 
15 INK 2; PAPER 15 BRIGHT 154%: 
FOR G=11 TO 6 STEP -1: BEEP 6/1 
00,2*G: BEEP G/100,G: BEEP G/100 

326: NEXT G: GO TO 480 

370 IF L<i THEN GO TO 480 

380 IF M=2 OR M=S OR M=6 THEN 
LET C=C+1 

390 GO TO 180 

400 PRINT ””*”" HAS LLEGADO A UN 
A ENCRUCIJADA"” "PUEDES IR HACIA 


DONDE QUIERAS"**>"  N — NORTE"? " 
Ss nn SsUuR">”" E E ESTE">" 

D - OESTE" 

420 INPUT D$ 

430 IF RND>.8 THEN GOD SUB 720 
440 IF D$="E" OR D$="e" THEN 6 
DO TO 480 

450 IF D$="N" OR D$="n" THEN 6G 
D TD 270 

460 IF D$="S" OR D$="s" THEN 6G 
D TO 40 

470 IF D$="0" OR D$="0" THEN G 


(RND*6)+1 

510 LET T$=("HIERRO" AND T=1)+( 
"ORO" AND T=2)+("PLATA" AND T=3) 
+("COBRE" AND T=4)+("PLOMO" AND 
T=5)+("BRONCE" AND T=6) 

570 PRINT ¿"HAS ENCONTRADO UNA 
MONEDA DE "5T5$ 

580 LET E=E+(50 AND T=1)+(1000 
AND T=2)+(350 AND T=3)+(500 AND 
T=4)+(200+T=5)+(20 AND T=4) 

590 PAUSE 50: GO SUB 720 

£40 PAUSE 100 


660 GO TO 40 

680 PRINT *?*** "ESTE ES EL FINAL 

DEL JUEGO. HAS MUERTO!" 

700 PRINT ”?*"MATASTE "3C5" MONS 
TRUOS"”?”” "Y ENCONTRASTE "5E3" $ E 
N TESOROS" 

710 STOP 

720 CLS : BEEP .5,RND*10+40: IF 

E>0 THEN PRINT FLASH 15 BRIGH 


79 


¡ T 13AT 0,05" LLEVAS UNOS TESOROS 
DE "; INVERSE 15E3" $" 
730 IF C>0 THEN PRINT AT 3,03" 
HAS MATADO"5 FLASH 1505 FLASH O 


i 05 10*L53"Z"5 
t 

1 

Ú 

3 "MONSTRUO" 5 
1 

' 

h 

1 

t 

' 


750 FOR Y=-RND*30 TO RND+*50 

760 BEEP .007,Y 

770 NEXT Y 

780 PRINT AT 6,03 PAPER RND*75WwW 
$5 INK 93 OVER 15AT 6,05 

785 IF RND>.9 THEN GO TO 460 

790 RETURN 


Cc 


735 IF C>1 THEN PRINT "S" 
740 PRINT AT 4,03 INVERSE 13 FL 
ASH 13" TU FUERZA ES "3 INVERSE 


oo. Oo 


2. Orfeo en el Metro 


En este juego hay un sistema de 20 cavernas, cada una de ellas numerada; estas cavernas 
se unen por medio de pasadizos. Las cavernas están pobladas por los seres más extraños que 
te puedes imaginar. Este sistema forma un laberinto en el que te puedes perder con gran 
facilidad, por eso te aconsejo que vayas haciendo un mapa con tus movimientos, y señales en 
él los lugares por donde pases. 

En las cavernas hay un montón de cosas desperdigadas (tales como una ESPADA o una 
LLAVE DE ORO); te sugiero que vayas recogiendo algunas de ellas, porque los seres que 
hay en las-cavernas te van a pedir esas cosas, y si no se las das no te dejarán pasar. Pero 
debes recordar que no puedes llevar más de cuatro cosas a la vez; por eso, si llevas ya cuatro 
cosas y has visto en una caverna otra que te interese coger, antes de levantarla tienes que 
dejar una de las que lleves. 

El objeto del juego es llegar a la caverna número 20. Tu puntuación dependerá del 
número de movimientos que hagas hasta llegar a ella, pero debes saber que el número de 
movimientos no es ilimitado, sino que sólo puedes hacer como máximo cincuenta movimien- 
tos; si a los cincuenta no has llegado a la caverna 20, el juego se acaba y tú pierdes. Te voy a 
dar una pequeña ayuda: 


Si te fijas, verás que normalmente —pero no siempre— los túneles van de las 
cavernas con menor numeración a las que tienen mayor; por eso es más probable 
que la caverna 20 esté más cerca de las de mayor numeración que de las de 
menor. 


Así es la presentación del programa cuando se está ejecutando: 


81 


ART 


EE FONTES 


HEY. TUNE LEAZS HACIA Moi Aj E yo CA 


Este programa se comporta de una forma lógica, no como ocurre con otros juegos 
también llamados de AVENTURAS; digo que se comporta de una forma lógica, porque el 
sistema de cavernas no varía durante el juego, sino que permanece estable y si dejas algo en 
una caverna, allí se quedará hasta que vuelvas a pasar y lo recojas, si quieres recogerlo. Los 
sistemas de cavernas varían de partida en partida, pero no lo hacen ya dentro del juego una 
vez empezado. No todos los sistemas generados por el ordenador se pueden resolver. 

De vez en cuando entrarás a una caverna mágica; esta caverna te transportará a una 
caverna de posición aleatoria. 

Al empezar la partida el ordenador crea el sistema de cavernas; esto le llevará un poco 
de tiempo, por lo que debes tener un poco de paciencia antes de empezar a jugar. 

Si quieres, puedes modificar el programa para hacerlo más entretenido; puedes cambiar 
el número de cavernas, el número de objetos, o poner más o menos inquilinos. También 
puedes quitar el límite de tiempo y de esta forma podrás resolver los sistemas más difíciles. Si 
te sientes con ánimos puedes añadir una (OPCION MAGICA” que te ayude a pasar las 
trampas que te hagan los inquilinos. 


1 REM ORFEO EN EL METRO ** | QUE LLEVAS O 
¡30 60 SUB 9700: REM CONSTRUCCI 57 LET 0=50: REM TIEMPO | 
¡ ON DE LAS CUEVAS 60 GO TO 1000: REM EMPIEZA EL ¡ y 
¡40 GO SUB 9500: REM LLENADO DE JUEGO 
' LOS VECTORES E ! 
50 GO SUB 9200: REM DISTRIBUCI 1010 REM EL JUEGO O) 
; ON DE LOS INQUILINOS 1020 LET Y=1: LET X=0 ¡ 
55 DIM R$(4,10): REM LAS COSAS | 1030 BORDER 5: PAPER 7: CLS SS 


O .0. Os 0 


O 


1040 INK O 

1045 GO TO 1105 
1050 BORDER 7*RND: CLS : PRINT A 

T 0,05 INK RND*75 FLASH 13 "oeex 

MIRREN MIRROR INIA! 
1054 LET Q=0-1: IF Q=0 THEN GO 

TO 6000 

1055 PRINT TAB 155"TIEMPO: "30 
1060 PRINT *"ESTAS EN LA CUEVA " 
3 FLASH 15Y 

1065 IF X>0 THEN PRINT 

DE LA CUEVA "5X 

1070 IF R$(1,1)>" " OR R$(2,1)>" 
" OR R$(3,1)>" " OR R$(4,1)>" " 
THEN  PRINT ” "LLEVAS :" 

1080 FOR Z=i TO 4 
1090 IF R$(Z,1)>" 


"VIENES 


" THEN PRINT 


253" - "¡R$(Z) 

1100 NEXT Z 

1102 RETURN 

1105 GO SUB 1050 

1125 IF F$(Y,1)=" " THEN GO TO 
1265 

1130 PRINT PAPER 25 INK 65" LA 
CUEVA CONTIENE:- "3F$(Y) 

1140 INPUT FLASH 15 INK 2; PAPE 


R 63"LO QUIERES? (S/N)"30% 


1150 IF Q$<>"S" AND Q6<>"s" AND 

Q6<>"N" AND Q$<>"n" THEN GO TO 
1140 

1160 IF Q$="N" OR Q$="n" THEN 6G 

O TO 1265 

1165 IF R$(1,1)=" " OR R$(2,1)=" 
" OR R$(3,1)=" " OR R$(4,1)=" " 

THEN GO TO 1230 

1170 PRINT "LLEVAS DEMASIADAS CO 

SAS": INPUT "CUAL QUIERES DEJAR? 

"5S: IF S<1 OR S>4 THEN GO TO 1 

230 

1190 LET T$=R$(S) 

1200 LET R$(S)=F$(Y) 

1210 LET Fs(Yv)=" " 

1220 GO TO 1260 

1230 FOR G=1 TO 4 

1240 IF R$(G,1)=" " THEN LET R$ 
(G)=F$(Y): LET F$(Y)=" ": GO TO 
1260 


1250 NEXT G 

1260 GO SUB 1050 

1265 IF CODE D$(Y)=32 THEN GOD T 
O 1425 


1266 IF CODE D$(Y)=CODE "*" THEN 
GO TO 5000 
1270 PRINT ? INK RNDx*73 PAPER 95 


"HAY UN"5D$(Y),"  AQUI,EL QUI 


ERE "3E$(Y),"SI SE LO DAS TE DEJ 
A CONTINUAR" 


1280 FOR G=1 TD 4 

1290 IF R$(G)=E$(Y) AND E$(Y,1)< 
>" " THEN GO TO 1400 

1300 NEXT G 

1310 PRINT ? FLASH 15" DEBES RET 


ROCEDER A "3X 
1315 PAUSE 100 
1320 LET P=X: LET X=Y: 
1330 GO TO 1105 

1400 PRINT ? PAPER RND*75 INK 95 
FLASH 15 BRIGHT 13" POR FORTUNA 
LO TIENES" 

1410 LET F$(Y)=R$ (G) 

1420 LET R$(G)=" " 

1425 PRINT ? INK 25" HAY TUNELES 
HACIA "5A(Y,1)53", "3A(Y,2)3", " 
JA(Y,3)3" "534(Y,4) 

1430 INPUT  INK 73 PAPER 33 

H 15"A DONDE QUIERES IR?"3M 
1440 FOR G=1 TO 4 

1450 IF A(Y,G)=M THEN GO TO 148 

(0) 
14650 
1470 
1480 
1490 
1500 
1510 
2000 
2010 
2020 CLS 

2030 PRINT AT RND*20,RND*3153 INK 
RND*7;3 OVER 15 FLASH 15 PAPER 9 
5 .n qn 

2035 PRINT AT 10,85 INK RND*75 P 
APER 93" HAS VENCIDO! !" 

2040 BEEP .002,RND*50 

2050 PRINT AT 0,05 OVER 13 INK R 
NDx*7;5 PAPER 9;"LA PUNTUACION ES 
DE "3100*(100—Q)+2*0 

GO TO 2030 

REM xAxXAMAGIAA* 

FOR G=1 TO 30 

BEEP .008,40-Q:1 


LET Y=P 


FLAS 


NEXT G 

GO TO 1430 

LET X=Y 

LET Y=M 

IF Y=20 THEN (GO TO 2000 
GO TO 1105 

REM RI 

REM det FIN ed 


BEEP .008,G 


BORDER RND+*7 
PAPER RND+*7: 
NEXT G 

PAPER 7 

LET X=Y 

LET Y=INT (RNDx*9)+8 

GO TO 1105 

REM **SE ACABO EL TIEMPO*%* 


CLS 


O 0 0 0 0 "0.0 0 


O 


O 
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o.0o0. Oo 


O 


O 
O 


6010 PRINT AT 10,85 INK RNDx*73 P 
APER 95" SE ACABO EL TIEMPO! !" 
£020 PRINT AT RND*20,RND*315 INK 
RND*73 OVER 13 FLASH 15 PAPER 9 
3 nn 
6040 
£050 
9190 
9200 
9210 
9220 
9230 
9240 


BEEP .002, RND+*60 

GO TO 4010 

REM 4d 

REM REPARTO 

DIM D$+(20,10) 

DIM E$ (20,10) 

DIM F$(20,10) 

FOR E=i TO 16 

9250 LET F=INT (RND*18)+2 

9270 LET D$(F)=B$(INT (RND*20)+1 
2 REM HABITANTES 

9280 LET E$(F)=C$(INT (RND*20)+1 
): REM LO QUE PIDEN 

9290 LET F=INT (RND*19)+2 

9310 LET F$(F)=C$(INT (RND*20)+1 
3: REM CONTENIDO DE LAS CUEVAS 
9320 IF RND>.8 THEN LET D$(F)=" 
AAAMAGIANIR" 

9330 NEXT E 

9340 RETURN 

9460 REM dex de 10d 

9500 REM LLENADO DE LAS FILAS 
9510 PRINT FLASH 13 INK 23 PAPE 
R 63 "ESPERA, POR FAVOR", "LLENADO 
DE LAS CUEVAS" 


9520 DIM B$(20,10): REM GENTE 
9530 DIM C$(20,10): REM COSAS 
9540 FOR D=1 TO 20 

9550 READ Es$ 

9560 LET B$(D)=E$ 

9570 NEXT D 

95753 FOR D=i TO 20 


9580 READ F$ 

9582 LET C+$(D)=F$ 

9585 NEXT D 

9390 DATA "UHLANE", "AARDUARK", "O 
DILO", "AEROLITO", "ALHAMBRA", "AMI 
GDALUS", "OGRO", "EEL", "ELEUSIANO" 
, "ENCIMA", "IBIX","ICENI", "IGUANA 
", “ILMENITA", "INCA", "INFULA", "PU 
LPO", "OCAPI", "ORIOL", "OTTER" 
9600 DATA "ESPADA", "VARITA MAGIC 
A","LLAVE DE PLATA", "MARTILLO", "” 
ORO", "ZAFIRO", "DIAMANTE", "ESPADA 
", "VARITA MAGICA", "ZAFIRO", "LLAV 
E DE PLATA”, "MARTILLO", "ORD", "DI 
AMANTE", "ESPADA", "ORO", "ORO", "MA 
RTILLO", "ESPADA", "VARITA MAGICA" 
9610 RETURN 

9690 REM Aer 

9700 REM CONSTRUCCION DE LAS CUE 
VAS 

9705 PRINT FLASH 13 "ESPERA POR 
FAVOR",”" CONSTRUCCION DE LAS CU 
EVAS en 

9710 DIM A(20,4) 

9720 FOR B=1 TO 20 

9730 FOR C=1 TO 4 

9740 LET A(B,C)=B+INT (RND*7—RND 
*5) 

9750 IF A(B,C)=B OR A(B,C)<1 OR 
A(B,C)>20 THEN GO TO 9740 

97650 NEXT C 

9770 IF A(B,1)=A(B,2) OR A(B,1)= 
A(B,3) OR A(B,1)=A(B,4) OR A(B,2 
)=A4(B,3) OR A(B,2)=A(B,4) OR A(B 
,»3)=A4(B,4) THEN GO TO 9730 

9780 NEXT B 

9830 CLS 

9840 RETURN 


3. Aventura en Kripton 


Estás atrapado en el planeta Kripton, que está a punto de explotar. Tu única 
oportunidad de escapatoria es que encuentres el CRISTAL, y con él hagas funcionar el 
teletransportador. El planeta Kripton está compuesto de 10 habitaciones, cada una de ellas 
con tres salidas. Para moverte de una habitación a otra sólo tienes que teclear el número 
de la habitación a la que te quieres ir. 


SHALIDAS E TLC FIEL TA Lcd 


5 5 EE En Po) 
de ( os e 


ES OTREAMZ 
ESTADIO > 


A O | 


LEA AAA Lo a 
| LL) 


Pero tu búsqueda no va a ser tan fácil; en el planeta hay 12 unidades de kriptonita, y si 
las inhalas todas morirás. Estas 12 unidades están repartidas en cuatro habitaciones; por 
tanto, tienes que evitarlas en la medida de lo posible. 

El programa usa el reloj interno del ordenador para ver el tiempo que has tardado en 


acabar el juego, y salir de KRIPTON. 


101 LET a(i,y)=a(b,4) 
105 IF a(i,y)=0 THEN LET a(i,y 
)=10 

120 NEXT y: NEXT i 

125 LET a$=" K CKkKK "sz 


ooo. 0 


LET b$ 


O 


130 LET ro=INT (RND*10)+1 
140 FOR i=1 TO 10 

z=INT (RND*LEN a$)+1 
b$(i)=a$(2) 


O 


O 


240 PRINT AT 1,3; PAPER 15" A 


RO,2))="K" OR B$(A(RD,3))="kK" OR 
B$(A(RO,3))="K" THEN IF RND<.5 
THEN  PRINT "LA KRIPTONITA ESTA 
CERCA" 

390 IF B$(A(RO,1))="C" OR B$(A( 
RO,2))="C" OR B$(A(RO,3))="C" TH 
EN IF RND<.S THEN PRINT "EL CR 
ISTAL ESTA CERCA" 

400 IF RND<.2 THEN GO SUB 8500 
IF B$(A(RO,4))="K" THEN GO 


455 IF LEN K$<>kKR THEN LET K$= 


O 1 REM _* AVENTURA EN KRIPTON * | ¿AT 1,155 PAPER 53"  "3AT 1,21; 
2 BORDER 0: PAPER O: INK 7: C |"  -"“5AT 1,273 PAPER 53"  " 
o ¡ Ls . E a 250 PRINT AT 2,35 PAPER 13" "¡O 
5 FOR i=USR "a" TO USR "h"+7: | ¿AT 2,155 PAPER 53"  "3AT 2,21; 
O READ a: POKE i,az NEXT iz GO SU | " "5AT 2,273 PAPER 53" " o 
a 1009 _ Ñ _ | 260 PRINT AT 3,3; PAPER 13" " 
mn toa LET CR=0: LET SES | ¿AT 3,153 PAPER 55" "5AT 3,21; 
12 BORDER Os PAPER 02 INK 72 Clon E 
, : : 280 PRINT AT 20,03 PAPER 7;" 
O PO] A (0) 
14 LET k$= 290 PRINT AT 20,0; PAPER 3;k$ 
é 20 DIM a 120) 7) A 300 PRINT AT 18,05 PAPER 43 INK 
ES EL pei id 05"123"5 PAPER 6;"456"5 PAPER 2 ¡ O 
15 5"789"5 PAPER 7;"01+" 
, , , 
O = qa Pr ig bd 310 PRINT AT 17,1;"KRIPTONITA" O 
a(i,4)= abíz 315 PAPER 2: INK O 
O 55 IF a(i,4)=0 THEN LET a(i,4 320 PRINT AT 2,43A(RO, 4) 
)=10 325 PAPER 5: INK O O 
60 LET a$=a$( TO z-1)+a$(z+1 T 330 PRINT AT 2,16;A(ROD,1) 
010) 340 PRINT AT 2,2253A(RD,2) O 
da a A 350 PRINT AT 2,28;A(RO,3) 
a 360 PAPER Oz INK 7 
90 FOR y=1 TO 3: READ b 370 PRINT AT 6,0 O 
100 LET a(i,y+4)=b 380 IF B$(A(RO,1))="kK" OR B$(A( 


170 LET a$=a$( TO z-1)+a$(z+1 T SUB 8000 
0» 420 IF B$(A(RO,4))="C" THEN GO 
e) 180 NEXT i suB 7500 O 
190 PRINT AT 10,8;"TECLEA LA IN 430 FOR I=1 TO 50 
O |: STRUCCION" 440 LET X$=INKEYS$ 1) 
200 PRINT AT 11,153 """k""" 443 IF X$>="0" AND X$<="9" THÉN 
210 IF INKEY$<>"kK" THEN GO TO GO TO 7000 
O! 210 450 NEXT I 1% 
220 CLS 451 IF MA=145 THEN LET MA=144 
O 230 PRINT  INK 6; "SALIDAS DE TU 453 PRINT AT 2,7;3CHR$ MA: PRINT ; () 
HABITACION" AT 3,7;CHR$ (MA+1) 


¡CI O) 


O 


id Ks+" " 


PRINT AT 20,05 PAPER 33K$ 
IF LEN K$=12 THEN G0 TO 82 


BEEP .25,LEN K$x*2 

LET SE=SE+1 

PRINT AT 20,20;SE 

GO TO 430 

PRINT "AVENTURA EN KRIPTON"” 
1010 PRINT *" Estas atrapado en 

el planeta" 

1020 PRINT *"KRIPTON. 

debes esca-" 

1030 PRINT ”"par del planeta por 
un tele-" 

1040 PRINT ”"transportador. 
que funcione" 

1050 PRINT ”* "debes encontrar el 
cristal." 

1050 PRINT ”" ATENCION: 
itaciones" 

1070 PRINT ”*"hay tres unidades d 

e kriptonita." 
1080 PRINT ”"Si 
oriras." 

1095 PRINT $15" PULSA UNA TECLA 
PARA OTRA PG.": PAUSE O: CLS 
1100 PRINT ”" En el planeta hay 
10 habita-" 

1110 PRINT *"ciones y cada una c 
on tres sali-" 
1120 PRINT ” "das. 
tardas para" 

1130 PRINT ” "escapar es registra 
do." 

1140 PRINT ”" Para mover de una 
a otra habi-" 

1150 PRINT * "cion debes teclear 
el No. de esa” 

1160 PRINT ” "habitacion 
) ” 
1170 
1180 
6000 
£010 FLASH 1 

£020 PRINT AT 8,9; PAPER 2; INK 

65"HAS TERMINADO"5AT 10,105"EL C 
AMINO DE ENTRADA"5AT 12,115SE3" 


SEGUNDOS" 

6023 FLASH O 

6030 GO TO 8020 

7000 FOR I=i TO 3 

7005 IF X$="0" THEN LET X$="10" 
7010 IF A(RO, I)=VAL X$ THEN GO 
TO 7100 


Para ganar 


Para 


En 4 hab 


inhalas las 12 m 


El tiempo que 


(10 es O 


INPUT LINE Q$ 
CLS : RETURN 
CLS 


7020 

7030 

AL ” 

7040 

7050 
» 


NEXT I 
PRINT AT 17,03 "ENTRADA ILEG 


PAUSE 50 
PRINT AT 17,03" 


7060 

7100 

7110 

7120 

7500 

HORA 

7510 

7320 

7530 

75340 NEXT I 

7550 RETURN 

8000 PRINT " HAS ESTADO EXPUESTO 
A LA KRIPTONITA" 

8003 LET B$(A(RO,4))=" " 

8020 LET KR=KR+3 

8090 RETURN 

8200 CLS 

8201 PRINT AT 10,9; 
05"HAS MUERTO" 

8205 PRINT AT 3,73""%.,."3AT 2,73" 
"z BEEP 1,-24: FOR I=3 TO 21: P 

RINT AT 1,73"... BEEP .5,21-1: 
PRINT AT 1,75 NEXT I 

8207 PRINT AT 21,73". ."5AT 20,5 

3 INK 65"RIP..." 

8210 PRINT AT 12,15 PAPER 43 INK 
0; "ENVENENADO POR LA KRIPTONITA 


GO TO 460 

LET I=1+4 

LET RO=A(RO, 1) 

GO TO 220 

PRINT " TIENES EL CRISTAL-A 
ESCAPA" 

LET CR=1 

FOR I=1 TO LEN Bs 

IF B$(1)="C" THEN LET B$(1 


PAPER 23 INK 


8220 INPUT "OTRO JUEGO?"5 LINE Z 
$: IF Z$="N" OR Z$="n" THEN STO 
P 

8230 RUN 

8500 PRINT "QUIERES TRANSPORTE (S 
Im?" 

8510 INPUT LINE S$ 

8520 IF S$="n" OR s$="N" THEN R 
ETURN 

8530 IF s$<>"S" THEN GOD TO 8510 
8540 IF CR=0 THEN GO TO 8700 
8550 IF RND<.75 THEN GO TO 6000 
8560 PRINT "EL TRANSPORTADOR FAL 
LO": RETURN 

8700 PRINT "NO PUEDES TRANSPORTA 


RTE PORQUE NECESITAS EL CRISTAL 

PARA INICIAR EL TRANSPORTE" 

8710 RETURN 

8900 DATA O,BIN 10011000,BIN 101 
01000,BIN 10011000,BIN 11111110, 
BIN O1111111,BIN 00111101,BIN 00 


o 0.0 0 0 


O 


1 
1 
1 
1 
1 
' 
' 
' 
' 
' 
' 
' 
' 
! 
1 
1 
1 
| 
! 


111101,BIN 00111101,40,36,36,38, 
35,33,BIN 11100110: REM HOMBRE 1 


zQ 


8910 DATA 0,25,21,25,BIN O111111 
1,BIN 11111110,BIN 10111100,BIN 

10111100,BIN 10111100,60,36,36,B 
IN 01100100,BIN 11001000, 132,BIN 


o11o00111: 
CHA 


REM HOMBRE DE LA DERE 


8920 DATA 0,120,124,46,15,27,17, 
16,0,0,0,0,128,128,220,116: REM 
HOMBRE MUERTO 

8930 DATA 0,2,7,2,2,64,255,255,0 
,0,0,0,0,0,130,254: REM HOMBRE M 
UERTO 

9000 DATA 3,6,9,5,6,8,1,4,8,3,8, 
10,2,6,7,1,2,5,5,9,10,2,3,4,1,7, 
10,4,7,9 


O 


O 0 0 


4. En el castillo del diablo 


Este juego, escrito por Mathew Boek, es del tipo AVENTURA, y tiene la peculiaridad 
de la gran velocidad que tiene, y eso hace que el tiempo de respuesta sea muy pequeño. 

Has sido transportado por algún genio malvado al interior del castillo del diablo. Tu 
única protección en ese castillo es la espada mágica que llevabas en el momento en que fuiste 
transportado a las entrañas del castillo. Con esa espada debes enfrentarte a hombres y 
monstruos, no sé qué será peor. 

Como en todos los juegos del tipo AVENTURA, tendrás que tomar decisiones e 
intervenir en gran número de batallas, mientras estás vagabundeando por el castillo en busca 
de la salida. 

El juego continúa hasta que encuentras la salida, y sales, o hasta que tus puntos de 
“energia” llegan a valer cero, o lo que es lo mismo, mueres. Estos puntos de energía van 
disminuyendo por las heridas causadas en las batallas. 

El ordenador necesita unas órdenes muy claras y sencillas, debido a que el juego no 
tiene un vocabulario muy amplio. El ordenador reconoce las órdenes por las dos primeras 
letras; por eso, en vez de escribir toda la orden, puedes escribir sólo las dos primeras letras. 

El vocabulario es el siguiente: 


—MIRA ESTO 
—EXAMINA ESTO 
—TOMA ESTO 
—MATA 
—CORRE 
—HABLA 
—IGNORA 


Fíjate que el programa llama repetidas veces a la subrutina DELAY (donde DELAY es 
una variable que tiene un valor de 2.500); esta subrutina da al programa un poco de sonido, 
le quita velocidad, limpia la pantalla y mueve la posición inicial del PRINT unas líneas más 
abajo. Cuando un programa tiene una subrutina de este estilo es mejor llamarla poniendo un 
nombre que poniendo su posición, ya que si la queremos cambiar de sitio lo único que 
tenemos que hacer es cambiar el valor del nombre de la subrutina, y no tenemos que tocar 
para nada los GO SUB, que pueden ser muy numerosos. 

Pero el juego no se acaba si llegas a la salida del castillo, ya que el demonio te está 
esperando en ella y, si no tienes suerte, él te mandará otra vez al principio. 


90 GO TO 100*(A+1) 
100 PRINT " UN OBJETO MISTERIOS 


1 REM x*%* EN EL CASTILLO xx 
2 REM + DEL DIABLO .. 


218 GO TO 210 a 
220 IF B$="CORRER" THEN LET F= 
RND: IF F<.S THEN (GO SUB DELAY: 


753 GO SUB DELAY: PRINT "VES: " 


' I 
J | 
| 

O! 3 REM PON MAYUSCULAS O": LET B=INT (RNDx*4)+1 Ma 
4 REM TOmar, COrrer, MAtar, I 105 INPUT "QUE QUIERES HACER? " 

o ' Gnorar, HAblar ¡As o 
! 5 DIM M$(4,13): FOR Z=1 TO 42 107 IF A$( TO 2)="MI" OR A$( TO | 
|. READ M$(Z)2 NEXT Z 2)="EX" THEN GO TO 110 

O | 6 BORDER 12 INK 7: PAPER 1: C 108 GO TO 71 O 
¡LS 2: BEEP 1,30: BEEP .5,20: BEEP 110 GO SUB DELAY: PRINT "ES UN 

O! -5,30 "3 FLASH 13M5(B)s IF B=3 OR B=4 ¡y 
7 DATA "ESCUDO MAGICO ","ANIL | THEN (GOD TO 70 
¡LO ","RATON MUERTO ", "BRAZO " 115 IF B=1 THEN LET KlI=KI+5: P | 

o; 8 LET DELAY=2500 RINT *>"Y LO COGES": GO SUB DELA | O 
¡10 GO SUB DELAY Y: GO TO 71 

O ' 20 PRINT " HAS SIDO LLEVADO A 120 IF B=2 THEN LET C=INT (RND ¡ y 
| ALGUN SITIO" *100)+100: PRINT ”””"EL ANILLO E | 

o | _ 30 PRINT "EN EL CASTILLO DEL D | STA VALORADO EN "5C5" MONEDAS DE | 
| TABLO" ORO": LET TR=TR+C O 
¡35 GO SUB DELAY 125 PAUSE 50: PRINT ”>*"AHORA Ti 

O ¡40 PRINT "TU TIENES UNA ESPADA | IENES "3TR3"MONEDAS DE ORO": GO; y 
po SUB DELAY: GO TO 71 

O! 45 60D SUB DELAY 200 PRINT FLASH 13 INK 25 PAPE : 
50 PRINT "*keexee*BUENA SUERTE* | R 63" UN MONTON DE TESORO!!"3z P ¡O 
la AUSE 50: IF RND<.S THEN PRINT " |! 

O 55 LET MK=0: LET AA=0: LET Li= | Y UN MONSTRUO": LET M=2 O 
¡; Ox LET MA=0: LET CA=0: LET K=0 210 GO SUB DELAY: INPUT "QUE QU; 

O | 60 LET HP=50: LET KI=0: LET TR | ¡ERES HACER AHORA";B$: IF B$( TO ¡ y 
| =0: LET M=0: LET IN=0 2)="MA" AND M>0 THEN GO TO 100 : 

o! 70 IF HP<=0 THEN GD TO 2000 o 
71 1F TR>2000 THEN INPUT FLA | 211 IF B$( TO 2)="TO" AND M>0 T ¡ O 
¡SH 13 INK 23 "QUIERES IRTE (S/N)? | HEN GO TO 224 

O | "30%: IF Q$="S" THEN GO TO 2300 | 215 IF B$( TO 2)="TO" THEN LET | y 
72 GO SUB DELAY: PRINT FLASH TR=TR+INT (RND*100)+200: GO SUB 

O | 15 BRIGHT 15 PAPER 2;"PULSA UNA DELAY: PRINT "AHORA TIENES "¿TR ! 

' TECLA PARA CONTINUAR" 3" MONEDAS DE ORO": GO SUB DELAY | O 
173 1F INKEY$<>"" THEN GO TO 7 | 1 GO TO 71 
013 217 PRINT AT 20,15" NO ENTIENDO ¡| O 
74 1F INKEYS$<>"" THEN GO TO 7 | ": PAUSE 100: PRINT AT 20,13" 
o!t4 ": GO TO 210 Lo 

t 


80 LET A=INT (RND*6) 
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PRINT "TE ESCAPASTE!!": GO SUB 
DELAY: GO TO 71 

221 IF B$( TO 2)<>"CO0” THEN GO 
TO 230 

225 IF M>0 THEN  PRINT "TE VE Y 
NO ESCAPARAS": LET IN=0: GO TO 


1010 
230 PRINT AT 20,15" NO ENTIENDO 
":z PAUSE 100: PRINT AT 20,13" 

"z GO TO 210 
300 PRINT "UNA PUERTA” 
305 PRINT ””” "QUIERES ABRIRLA ( 
S/N)?" 

307 IF INKEYS$<>"N" 
"S" THEN GO TO 307 
310 IF INKEYS$="N" 

DELAY: GO TO 71 

320 IF RND>.S THEN GO SUB DELA 
Y: PRINT "VES UNA HABITACION VAC 
IA": GO SUB DELAY: GO TO 71 

330 GO SUB DELAY: PRINT "VES UN 
A HABITACION CON "5: GO TO 80 


AND INKEY$< > 


THEN GOD SUB 


400 PRINT "UN MONSTRUO! !": LET 

M=1 

405 INPUT "QUE QUIERES HACER AH 
ORA?"3As$ 

410 IF A$( TO 2)="MA" THEN GO 

TO 1000 

415 IF A$( TO 2)="C0" AND RND<. 
S THEN GO TO 225 

420 IF A$( TO 2)="CO" THEN GO 

SUB DELAY: PRINT "HAS ESCAPADO": 
LET M=0: GO SUB DELAY: GO TO 71 


430 PRINT AT 20,15" NO ENTIENDO 

"z PAUSE 100: PRINT AT 20,13" 
": GO TO 405 

500 PRINT " UNA TRAMPA" 

505 IF RND<.3 THEN PAUSE 100: 
PRINT ”*? FLASH 1;5"PERO LA HAS EV 
ITADO": GO SUB DELAY: GO TO 71 

510 GO SUB DELAY: PRINT "UN DAR 
DO ENVENENADO"3?”3" Y HACE"32 LE 
T B=INT (RND*5)+1 

512 PAUSE 20: PRINT " 
IDAS" 

515 LET HP=HP-B: GO SUB DELAY: 
PRINT "TIENES "3 INVERSE 15HP3" 
DE ENERGIA": GO SUB DELAY: IF HP 
<1 THEN GO TO 2000 

521 GO SUB DELAY: GO TO 71 

600 FRINT "UN HOMBRE" 

605 INPUT "QUE QUIERES HACER?"5 
A$: IF A$( TO 2)="MA" THEN GO T 
D 1000 

610 IF A$( TO 2)="HA" 
SUB DELAY: GO TO 650 


"sB3" HER 


THEN GO 


620 IF A$( TO 2)="IG" 
TO 630 

625 PRINT AT 20,13" NO ENTIENDO 
"z PAUSE 100: PRINT AT 20,13" 

"3 GO TO 405 

630 LET LL=RND: IF LL<.7 THEN 
PRINT "YA SE HA 1DO": GO SUB DEL 
AY: GO TO 71 

635 PRINT **"EL SE ACERCA": 
SE 50: GO TO 450 

640 GO SUB DELAY: GO TO 71 
650 LET Z=RND: IF Z<.3 THEN PR 
INT ”*”?"TE DA UN TESORO Y SE VA": 
60 TO 670 

655 IF Z2<.8 THEN PRINT 
E NADA MAS QUE LARGARSE...": 
SUB DELAY: GO TO 71 

660 BEEP .4,3: BEEP .2,9: PRINT 

?*"NO LE CAES BIEN, TRONCO...": 
PAUSE 50: PRINT ”"Y DECIDE MATA 
RTE": GO SUB DELAY: GO TO 1000 
670 LET TR=TR+INT (RND*100)+50: 
GO SUB DELAY: PRINT "TIENES "3T 
R3”?" MONEDAS DE ORO": GO SUB DEL 
AY: GO TO 71 

1000 LET IN=INT (RND*2) 

1002 FOR R=i TO 50: BEEP .OS5,R: 
NEXT R 

1005 IF IN=1 THEN (GO TO 1020 
1010 LET MA=0: IF IN=0 THEN LET 
MA=INT (RND*20)+1: IF MA>15 THE 
N (GD TO 1500 

1015 PRINT *”?" FALLO" 

1016 FOR R=1 TO 50: BEEP .OS5,R: 


THEN GD 


PAU 


"NO HAC 
[c]0] 


NEXT R 

1020 PRINT ”* "PUEDES METERTE EN U 

N LIO": PAUSE 40: PRINT ?”? FLASH 
1;"PULSA CUALQUIER TECLA !!" 
1030 IF INKEY$="" THEN BEEP .00 

7,RND*50: GO TO 1030 


1040 LET CA=INT (RND*20)+1+K1z 1 
F CA>15 THEN GO TO 1100 
1045 GO SUB DELAY 


1050 PRINT "FALLASTE": LET IN=0:2 
GO SUB DELAY: GO TO 1010 
1100 PRINT "LO MATASTE!!"3 LET K 


=INT (RND*100)+50: GO SUB DELAY: 
PRINT "TENIA "3K5" MONEDAS DE O 
RO": LET TR=TR+K 

1103 LET MK=MK+1 

1104 LET AA=0 

1105 IF M=2 THEN LET AA=INT (RN 
D*200)+100: PRINT ?" Y EL TESORO 
ERA DE "3AA3"” MONEDAS DE ORO": 
LET TR=TR+AA 


1110 PAUSE 50: PRINT * "AHORA TIE 


OoOoOoOoOoOoOooOo 
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O 
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NES "3TR3" MONEDAS DE ORO"3: 
M=0: GO SUB DELAY: GD TO 71 
1500 BEEP .2,4: BEEP .3,6: BEEP, 
2.233: PRINT FLASH 15 INK 25 PAP 
ER 63" TE HA HERIDO!": LET HP=HP 
-10: IF HP<1 THEN GO TO 2000 
1510 GO SUB DELAY: PRINT "AHORA 
TU FUERZA ES DE "5HP 
1520 GO SUB DELAY: GO TO 1020 
2000 GO SUB DELAY: FOR R=1 TO 6: 
BORDER RND*65: BEEP .2,3x*R: BORD 
ER 1: NEXT R: GO SUB DELAY: PRIN 
T FLASH 13 INK 23"+++ ESTAS MUE 
RTO +++" 
2003 PRINT ”"HAS RECOGIDO 
PIEZAS DE ORO" 
2004 PAUSE 50: PRINT ”?"Y MATADO 
"3MK3" MONSTRUOS" 
2010 STOP 
2300 GO SUB DELAY: 
TE ESTA LA SALIDA!" 
2305 GO SUB DELAY: FOR R=1 TO 6: 
BORDER RND*6: BEEP .007,2*R:z BO 


LET 


“5 TR” " 


PRINT "ENFREN 
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RDER 1: NEXT R 
2310 IF RND<.S THEN PRINT ”? FLA 
SH 13" EL DEMONIO CIERRA EL CAMI 


NO": GOD TO 2400 

2320 GO SUB DELAY 

2330 PRINT ”?3"HAS TENIDO EXITO"* 
"HAS TERMINADO TU ODISEA" 

2340 FOR T=1 TO 40: BEEP .04,T: 
NEXT T 

2350 GO TO 2003 

2400 IF RND<..4 THEN PRINT "NO L 


E CAES BIEN "”3"Y TE HA METIDO E 
N EL CASTILLO OTRA VEZ": GO SUB 
DELAY: GO TO 72 

2410 PRINT "PERO SE SIENTE MISER 
ICORDIOSO Y"*" TE DEJA MARCHAR " 


: PAUSE 50: GO TO 2330 

2490 STOP 

2500 FOR Z=RND*S TO RND*20+20 
2510 BEEP .007,Z 

25320 NEXT Z 

2530 CLS : PRINT >>>> 

2540 RETURN 
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PARTE TERCERA 


JUEGOS 
DEL ESPACIO 


1. El guardián galáctico 


Eres EL GUARDIAN GALACTICO. Has oído que unos cruceros de batalla hostiles 
van a atacar la Tierra, pero ellos no saben que tú estás allí con tu Enterprise para defenderla. 


€< _ _ a_ mauaoXf ——b c--—eBbBmb— 
Nr Y 
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Mm 
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Mueves el Enterprise con las teclas: 
6—Para bajar. 
7—Para subir. 
0—Para disparar. 


Como ves, el juego también contiene instrucciones. 


ERE ENTE E 
IN O 3 : A 
Ek: % e y 35 Ñ li ms LS To 3. a y La E oa 
¡0 ys ara destraic  Laz 


anal 


e AN e | 
a o ERA A EZ 


JOOO 
UJ UJ Ll LJ) 


JODO 
UY US UL) 


1 REM ** EL GUARDIAN +x* 
** GALÁCTICO ** 
2 LET hs=0: FOR N=1 TO 5: 
D D$: FOR F=0 TOD 7: READ S: 
USR D$+F,S: NEXT F: NEXT N 
3 DATA "32",0,255,255,32,32,2 
55,127,255, "14",1,227,230,131,12 
9,255,171,255, "P>",252,254,211,2 
54,252,192,128,0 
5 DATA "D",0,0,0,7,31,63,0,0, 
".1",0,6,14,252,252,254,0,0 
6 BORDER 1: PAPER Oz INK 7: B 
RIGHT 11 CLS 
7 LET HS=0: 
10 BORDER 1: 
RIGHT 1: CLS 
20 PLOT 0,0: 
255,0: 


REA 
POKE 


GO TO 1000 
PAPER Oz INK 7: B 
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¡ DRAW 0,175: DRAW 
DRAW 0,-175: DRAW -255,0 
30 FOR N=1 TO 12: PLOT 0,5+N2 

¡ DRAW 0,165-N,PI/22 NEXT N 

35 RANDOMIZE : FOR N=0 TO 80: 

¡ PLOT INK RNDx*73 (RND*210)+39, (RN 
; D*158)+8: NEXT Nz INK 7 

|. 40 LET HIT=0: LET A=10: 
| LET SC=0 

I.-— 45 RANDOMIZE : LET X=INT (RNDx* 
 19)+1: LET Y=28-RND*5 

¡46 RANDOMIZE : LET L=INT (RND* 
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LET B= 
S: 


OO OO OGOOO 


19)+1:1 LET G=28-RNDx*5 
50 PRINT AT A,B3"  " 
£0 LET 
0)—(INKEY$="7" 
70 PRINT 
56; ie 
75 PRINT 
T L,G5 INK 
E L,65 " ” 
76 LET X=X+INT ((RND*2)-RND*2) 
IF Y<5S THEN LET Y= 


A=A+(INKEYS$="6" 
AND A>1) 
AT A,B; BRIGHT 15 


AND AX2 


INK 


AT X,Y3 INK 45" ue"sA 
FU a AT X,Y5" “sa 


: LET Y=Y-1: 
29 

77 LET L=L+((RND*2)-—(RND+*2)) 2 
LET G=G-1: IF G<5 THEN LET G=28 
IF L>20 THEN LET L=20 
IF X>20 THEN LET X=20 
IF L<2 THEN LET L=2 
IF X<2 THEN LET X=2 
IF INKEY$="0" THEN GOD SUB 


PRINT AT 0,0;SC 
PRINT AT X,Y3 INK 45 
casal . 


91 PRINT AT L,G;3 


PAPER 


INK 33 PAPER 


95 IF ABS (A-X)<2 AND Y<8 THEN 
60 TO 500 


98 


96 IF ABS (A-L)<2 AND G<8 THEN 
60 TO 500 

100 6D TO 50 

200 PRINT AT A,B; INK 65 PAPER 
O3 "mA AT X,Y3 INK 45 PAPER 05 
"mat ATOLyG3 INK 33 PAPER 05" cau 
“ 
201 PLOT 64, (21-A)*B+5: 
(Y-8),0 

202 RANDOMIZE USR 32500 

205 IF ABS (A-X)<1 THEN PRINT 
AT X,Y3 INVERSE 15 FLASH 15 INK 
45 PAPER 03" out"z LET SC=SC+10: 
FOR N=1 TÓ 50 STEP 5: BEEP .01,N 
LET HIT=1: PRINT AT X, 


DRAW 8% 


, 
205 IF ABS (A-L)<1 THEN PRINT 
AT L,G3 INVERSE 15 FLASH 15 INK 
33 PAPER 03" out '"z LET SC=SC+10:2 
FOR N=1 TO 50 STEP 5: BEEP .01,N 
1 NEXT N: LET HIT=1: PRINT AT L, 
6; " " 
210 OVER 1: PLOT 64, (21-A)*8+5: 
DRAW 8x*(Y-8),0: OVER O: IF HIT= 
1 THEN LET HIT=0: PRINT AT X,Y- 
23 OVER 0;" "5AT L,6-253 OVER 
03" GO TO 45 
220 RETURN 
500 PRINT AT A,B; INVERSE 15 FL 
ASH 13 INK 65 PAPER 03 "ce: FO 
R N=50 TO 1 STEP -5: BEEP .05,N: 
BEEP .05,N/2: NEXT N 
510 PRINT AT 3,75 FLASH 13 "xx 
TE HAN DADO +%x": IF SC>HS THEN 
LET HS=SC: PRINT AT 4,115"MAX-P 
UNT: "5HS;5AT 5,12; "PUNTOS: "55SC: 
PRINT AT 20,23" PULSA UNA TECLA 
PARA EMPEZAR": PAUSE O: PAUSE O 
515 CLS : GO TO 10 
1000 OVER 1: PAPER O: 
INK 7: CLS : PLOT 0,0: 
5: DRAW 255,0: DRAW 0,-175: 
-255,0 
1020 PRINT AT 7,153" Mueve el "; 
INK 45 "ENTERPRISE ( dp )3 IN 
K 73?" utilizando las teclas : 
ea 6: Para subir"”" 7: Para 
bajar" 
1025 PRINT TAB 13" Para salvar t 
u "j INK 53 "PLANETA"5 
1026 PRINT TAB 2;"Cuentas en la 
nave con "3 INK 2; FLASH 15"lase 
rs" 
1030 PRINT FLASH 03 INK 75?"  L 
os usaras para destruir las "3 I 


BORDER O: 
DRAW 0,17 
DRAW 


NK 65” " NAVES ENEMIGAS (€ umur ) FOR a=32500 TO 32520 


O 1040 PRINT ” INK 65TAB 73"0 -—- P | 1100 READ nz POKE a,n ' O 
; ara disparar" 1110 NEXT a ¡ 

O | 1050 PRINT ? INK 45" Tu ------- 1120 DATA 33,00,16,17,32,00,237, : O 
lo Er INK 63”" Enemigo --- « | 82,17,01,00,229,205,181,03,225,1 
o 24,167,32,239,201 to 

O 1! 1060 PRINT $15"Pulsa una tecla p | 2230 OVER O: LET hs=0: CLS : GO 
| ara empezar" TO 10 ¡ 

0) 1070 PAUSE Oz CLS : CLEAR 32499: | 9998 STOP O 


99 


2. Persecución 


Este juego lo he escrito yo, los gráficos son los definidos antes en un juego por Daniel 
Haywood. En él tienes que pilotar el avión por la pantalla, intentando esquivar las garras del 
pequeño marciano que aparece pululando por allí. 

Los controles que tienes que usar en esta difícil misión son: 


5—Para mover a la izquierda. 
6—Para bajar. 
7—Para subir. 
8—Para mover a la derecha. 


Como el programa almacena la máxima puntuación, lo que puedes hacer es intentar 
superar la puntuación mejor anterior a la tuya. 


de o ERA A 


go 
LJ) J 
] 

i 

i 

+ H 

i 

il 


CRAFT Ca ES 
ds E E UN 


aces GRAFICO E 


00 


8 


l 
' 
' 
! 
I 
! 
I 
' 
' 
' 
I 
I 
1 
1 
I 
' 
| 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
1 
1 
I 
I 
1 
I 
I 
| 
I 
1 
I 
| 
I 
1 
I 
I 
| 
I 
1 
1 
1 
|! 
1 
1 
1 
1 
I 
1 
1 
I 
1 
1 
1 
1 
1 
1 
1 
' 
1 
1 
1 
1 
I 
1 


10 REM ** PERSECUCION *x 
15 LET MAX=0 
20 RESTORE : GO SUB 1000 
25 PRINT AT HD,Ha;" " 
30 IF INKEYS$="5" THEN LET HA= 
HA-1: LET A$="4": IF HA<i THEN 
LET HA=1 
40 IF INKEYS$="6" 
HD+1: LET A$="+4": 
LET HD=18 
50 IF INKEYS$="7" 
HD-11 LET A$=" 4": 
LET HD=3 
60 IF INKEY$="8" THEN LET HA= 
HA+13 LET A$="5»+"; LET A$=""*":3 I 
F HA>30 THEN LET HA=30 
PRINT AT HD,HA3z INK 23A$ 
PRINT AT CD,CA;3" ” 
RND>.5 THEN GD 
CAXHA THEN  LET 
RND>.5 THEN GO 
CA>HA THEN  LET 
RND>.5 THEN GO 
CD>HD THEN  LET 
RND>.5 THEN GO TO 120 
CD<HD THEN LET CD=CD+1 
PRINT AT CD,CAz INK 03 "ur 
LET TIEMPO=TIEMPO+1:z PRINT 
AT 0,0353 FLASH 15TIEMPO 
130 IF HD=CD AND HA=CA THEN PR 
INT AT 0,05 INK 2; FLASH 1;"TE A 
LCANZO! ">? "SOBREVIVISTE DURANTE ” 
¿TIEMPO: IF TIEMPO>MAX THEN LET 
MAX=TIEMPO: PRINT AT 20,03 FLAS 
H 13 INK 15 INVERSE 13" EL MEJOR 


THEN  LET HD= 
IF HD>18 THEN 


THEN LET HD= 
IF HD<3 THEN 


TO 90 

CA=CA+1 
TO 100 
CA=CA-1 
TO 110 
CD=CD-1 


HASTA AHORA "¿MAX: BEEP 2,35 
140 IF HD=CD AND HA=CA THEN BE 
EP 2,51 GO TO 20 
500 60 TO 25 
990 STOP 
1000 BORDER 5: PAPER 6 
1005 FOR Z=1 TO 5 
READ Z$ 
FOR G=0 TO 7 
READ M 
POKE USR Z$+G,M 
NEXT G 
NEXT Z 
LET HA=2+INT (RNDx*10): 
HD=2+INT (RND*10) 
1080 LET CA=15+INT (RNDx*15): 
CD=10+INT (RNDx*10) 
1090 LET A$=".4" 
1100 LET TIEMPO=0 
1110 BRIGHT 1: CLS 
1120 PRINT AT 20,03 FLASH 15 INK 
13"EL MEJOR HASTA AHORA ES "5MA 
X 
1500 RETURN 
1510 DATA "A",8,8,28,62,127,8,8, 
28: REM NORTE 
1520 DATA "B",16,24,156,255,156, 
24,16,0: REM ESTE 
1530 DATA "C",28,8,8,127,62,28,8 
,8: REM SUR 
1540 DATA "D",8,24,57,255,57,24, 
8,0: REM OESTE 
1550 DATA "E",66,36,189,165,255, 
50,36, 231 


LET 


LET 
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3. Encuentros en el espacio 


Este es un juego en tiempo real, en el que te ves transportado al espacio exterior, con 
una misión a realizar. 

La misión es que aterrices tu nave espacial en el platillo volante que aparece en el fondo 
de la pantalla. Este platillo, como supondrás, no está quieto, sino que va moviéndose de 
izquierda a derecha constantemente. 

Los controles son: 


Q—Para subir. 

Z—Para bajar. 

L-——Para mover a la izquierda. 
J—-Para mover a la derecha. 


Así es la pantalla cuando estás jugando, con estrellas de posición aleatoria (e incluso una 
luna) sobre un fondo azul. 


a lA SL: 


pa 
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cil. 
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El combustible va gastándose cada segundo que pasa; por eso, no te pongas a hacer 
piruetas en el espacio con tu nave y aterriza en el platillo antes de que hayas gastado todo el 
combustible. 

Cuando (si) aterrizas, el centro del platillo se transformará en una sólida pista de 
aterrizaje. 


E AA 


ATERARICASTE ! 


mM o [_) 


A 


Tu puntuación depende, en parte, de la cantidad de combustible que gastes, y, por otra 
parte, en cuánto tiempo tardes en aterrizar. Los aterrizajes forzosos no dan puntos. 


E GRAFICO AE ES 
sa o GRAFICO Cr ¡OS 
GAN 

| L_) 

[] 

(A, 


*. ENCUENTROS ** 
**e EN EL ESPACIO x*x 
sUB 300 
A=1 
F=170 
30 PRINT AT 19,293" "1 LET B 
40 LET P1=0 
50 LET P2=0 
60 LET L=1 
70 LET P1=P1+(INKEY$="L")-(INK 
EY$="J") 
80 LET P2=P2+(INKEY$="Z")-(INK 
EY$="Q") 
90 PRINT AT 0,195 
INK 95 FLASH 13"FUEL1 
E 15F;5 :' “u 
LET B=B+P1 
LET A=A+P2+. 1 
LET L=L+.5 
LET F=F-1 
F=0 THEN GO TO 230 
A>20 THEN 60 TO 250 
L=30 THEN G0 TO 30 
B>29 THEN LET B=29 
B<2 THEN LET B=2 
A<1 THEN LET A=1 
180 PRINT AT A,B3" ak ": BEEP .O 
09,B: PRINT AT A,B3" "3AT 19,L- 
- AAA 
190 IF A>17 THEN 60 TO 210 
195 BEEP .006,50-A 
200 GO TO 70 
210 IF ABS (B-L)<2 THEN 60 TO 
270 
220 60 TO 70 


PAPER RND+*75 
"3 INVERS 


104 


230 PRINT AT 0,05 INK 25 FLASH 


1;" GASTASTE TODO EL COMBUSTIBLE 


240 STOP 
250 PRINT AT 0,0; 
13"TE CHOCASTE" 
260 STOP 
270 PRINT AT 0,03 INK 25 FLASH 
3 "ATERRIZASTE!"**"TU PUNTUACION 
ES "3264*(F-L) 
275 PRINT AT 19,L-33" 
AT 18,L-153 INK 2; 
280 STOP 
290 DATA "A",0,1,1,7,1,3,7,12 
300 PAPER 1: BORDER 1: INK 71 
Ls 
305 BRIGHT 1 
307 FOR G=1 TO 100: 
O,RND*170: NEXT G 
PRINT AT 4,273")" 
FOR Z=1 TO 6 
READ Z$ 
FOR G=0 TO 7 
READ M 
POKE USR Z$+G,M 
NEXT G 
NEXT Z 
RETURN 
DATA "A",0,1,1,7,1,3,7,12 
DATA "B",128,192,192,240,19 
2,224,240,24 
410 DATA "C",0,0,0,0,0,3,15,63 
420 DATA "D",0,0,0,0,0,255,170, 
255 
430 DATA "E",0,0,0,0,0,192,240, 
252 


INK 753 FLASH 


lil. 5 
BRIGHT 13" jk " 


PLOT RND*25 


4. Cosmos 


En este juego debes disparar y tratar de dar a tantos pájaros galácticos como puedas 
durante el tiempo que tienes. 

Mueves la mirilla de tus lasers por la galaxia en busca del pájaro enemigo; cuando lo 
encuentres, dispara rápidamente, porque ellos son muy veloces y es posible que cambien de 
posición. Las teclas para mover la mirilla son: 


R—-Para subir. 

V—Para bajar. 

D—Para ir a la derecha. 
G—Pará ir a la izquierda. 
F—Para disparar. 


Tienes sólo un minuto y medio para matar tantos pájaros galácticos como puedas; 
después, ellos lanzarán el ataque final. 

El programa tiene muchas sentencias REM; éstas sirven para indicarte qué es lo que 
hacen esas líneas determinadas. 

El juego te viene con instrucciones, que, si no quieres, no es necesario que las copies. 

Como ves en la pantalla, al jugar parece que estés en el espacio matando perdices, o 
algo asi. 


7 


y 


1 REM *x*x COSMOS *x%* 
8 RESTORE 64040: RESTORE 4090: 
RESTORE 6140: GO SUB 4000 


9 LET HS=0 
10 BORDER 1: PAPER Oz INK 7: C 
Ls 
11 CLS : 60 TO 7000 
20 LET SC=0: LET SH=0: LET H=0 
2 LET T=0: RANDOMIZE : LET Q$="/ 
IV" LET W$="-X-"2 LET ES="X1/"x 
LET R$=" E 
21 REM *x*x**VENTANA CON LOS DA 
TOS 
25 INK 7: OVER 1: PLOT 0,0: DR 
AW 255,0: DRAW 0,175: DRAW -255, 
O: DRAW 0,-175: PLOT 186,140: DR 


AW £8,0: PLOT 186,45: DRAW 69,0: 
PLOT 185,0: DRAW 0,175: INK 7: 
PRINT AT 5,243 "MAX-PUNT: "5AT 7,2 
45 "PUNTOS: "5AT 9,245 "DISPAROS: "5 
AT 11,245 "ACIERTOS: "5AT 14,243"T 

IEMPO: " 
26 INK 6: PRINT AT 1,245 
13" "AT 2,243 FLASH 
SMOS"5AT 3,243 FLASH 13" 
30 LET X=INT (RND*20)+2: 
=INT (RND*19)+2: LET OX=X: 
Y=Y 
40 LET A=10: 
LET OB=B 


FLASH 
13"C0 


LET Y 
LET O 


LET B=13: LET 0A= 


¿A RAF TIEANA 


RA 


GRAFICO 


AN 


50 GO SUB 4000: PLOT 0,0 
51 REM xex**MOVIMIENTOS 
53 LET P$=INKEY$: LET A=A+(P$= 


"Y" AND AX19)-(P$="R" AND A>3): 
LET B=B+(P$="G" AND B<21)-(P$="D 
" AND B>2) 


55 IF P$="F" THEN 60 SUB 500 
60 LET O=INT (RNDx100): LET X= 
X+(0>70 AND X<21)-(0<30 AND X>3) 
70 LET O=INT (RND*100): LET Y= 
Y+(0<30 AND Y<19)-(0>70 AND Y>3) 
80 LET P$=INKEY$: LET A=A+(P$= 
“Y" AND A<19)-(P$="R" AND A>3): 
LET B=B+(P$="G" AND B<21)-(P$="D 
" AND B>2) 
90 OVER O: PRINT AT OY,OX-13" 
": PRINT AT 00-1,0B-15R$3AT DA 
,¿OB-13R$3AT 0OA+1,0B-13R$: OVER O 
91 IF T>100 THEN GO TO 2000 
92 PRINT  INK 45AT Y,X-13" ur 
“5 INK 55 OVER 13AT A-1,B-130$3A 
T A,B-13W$507 A+1,B-13E$ 
95 LET OX=X: LET OY=Y: 
A: LET OB=B 
114 REM x*PUNTOS 333 
115 OVER O 
116 PRINT AT 6,25;HS3AT 8,25;SC 
¿AT 10,255SH3AT 12,25;H5AT 15,25 
¿INT (CT) 


LET D0A= 


117 REM +*e**CROMOMETRANDO 

118 LET T=T+1/3 

119 BEEP .01,25 

120 GO TO 51 

409 REM +x**x*EL LASER 

500 INK 7: LET L=8*(21-A)2 LET 
J=(B*9)+4: LET K=185-(Bx+8)-4: FO 
R Z=0 TO 1: OVER 1: PLOT 185,0: 
DRAW —K,L: PLOT 0,0: DRAW J,Lz F 
OR P=0 TO 3: BEEP .03,PxB2z NEXT 
P: NEXT Z: OVER Oz INK 7 


504 REM **%*TEST PARA EL ACIERTO 
505 IF A=Y AND B=X THEN GO SUB 
1000 

510 LET SH=SH+1: RETURN 

999 REM ****ACTERTO. 1... 

1000 LET T=T+4: LET SH=SH+1: FOR 
G=0 TO 5: BEEP .05,6*8: BEEP .0 
5,6: BRIGHT 1: PRINT AT 17,255 1 
NK 23 FLASH 13" "5AT 18,255 
FLASH 13"<DADO>"5AT 19,25; FLAS 
H dz" ": NEXT G: LET H=H+1: 
LET SC=SC+10: GO TO 9000 
2000 REM *%*x*F IN 
2001 IF SC>HS THEN LET HS=SC 


2005 PAPER 0: BORDER O: INK 7: C 
Ls 
2007 PLOT 15,0: DRAW 0,160: DRAW 
225,0: DRAW 0,-1650: DRAW -225,0 
2010 PRINT AT 4,103 FLASH 13" 
"sAT 5,105 FLASH 13">>> 
COSMOS<<<"5AT 6,103 FLASH 15" 
2020 PRINT AT 9,73 INK 3;"SE ACA 


BO EL TIEMPO" 

2050 PRINT AT 11,103 INK 33"MAX- 
PUNT: "3HS5AT 13,105 INK 65"PUNTU 
ACION: "53SCjAT 15,103 "DISPAROS: "5 
SH;3AT 17,105"ACIERTOS: "3 

2060 PRINT AT 19,65 INK 6; "PULSA 
"5 INK 23"ENTER"3 INK 63 "PARA EM 


PEZAR" 

2063 INPUT N$: BORDER 1 

2065 CLS 

2070 GO TO 20 

3999 STOP 

4000 OVER O: RANDOMIZE : FOR F=8 
TO 177 STEP 2: PLOT  INK RND*75 

F, INT (RND*155)+8: NEXT F:z INK 5 


4010 RETURN 

RESTORE 6040 

FOR F=0 TO 7 

READ S 

POKE USR "r"+F,S 

NEXT F 

DATA 15,16,32,32,32,0,0,1 


RESTORE £090 
FOR F=0 TO 7 

READ 8 

POKE USR "4"+F,S 

NEXT F 

DATA 24,189,90,126,102,60,4 


RESTORE 6140 

FOR F=0 TO 7 

READ 5 

POKE USR ""+F,S 

NEXT F 

DATA 240,8,4,4,4,0,0,128 
6150 FOR F=0 TO 3: READ W$: FOR 
U=0 TO 7: READ S: POKE USR W$+U, 
S: NEXT Uz NEXT F 

6160 DATA "+",24,24,36,126,24,2 
4,24,24 

£170 DATA "4",24,24,24,24,126,3 
6,24,24 

£180 DATA "=",0,8,48,223,223, 48 
,B,0 

5190 DATA "-+",0,16,12,251,251,1 


2,16,0 

6999 RETURN 

7000 INK 7: PLOT 0,0: DRAW 0,175 

: DRAW 255,0: DRAW 0,-175: DRAW 

-255,0 

7005 INK 4: PRINT AT 1,105 FLASH 
13" "sAT 2,103 FLASH 
3 "**COSMOS%%"3 AT 3,105 FLASH 


13" "5 INK 7 
7010 PRINT OVER 135 INK 73AT S,1 
3" EL OBJETIVO DE ESTE JUEGO ES 
DESTRUIR TANTAS NAVES ENEMIGAS 
"5 INK 65 FLASH 153" (3877) "35 INK 
75 FLASH 03" COMO PUEDAS. PARA 
ELLO CU-ENTAS CON TUS PODEROSOS 
LASERS ." 
7020 PRINT : PRINT OVER 1;"LAS 
TECLAS SON: "35AT 12,113"+"3AT 14 
s113"R"5AT 16,73"* DF G "AT 
18,113"V"3AT 20,113" 4" 
7030 PLOT 95,39: PLOT 95,38: PLO 
T 96,40: PLOT 97,40: PLOT 95,40: 
DRAW 20,-20: PRINT AT 20,153 IN 
K 2;"FUEGO" 
7040 PRINT $1; "PULSA ENTER PARA 


EMPEZAR": PAUSE Oz INPUT LINE W 
$ 

7095 INK O: PLOT 0,0: DRAW 0,175 
7100 CLS : GO TO 20 


9000 PRINT AT Y,X-13"-X-" 
010 LET X=INT (RND*20) +2: 
=INT (RND*19)+2: LET OX=X2 
Y=Y 


LET Y 
LET O 


O. 0 0 QQ -0-0.00- 0 


O 


O 


O 0 0 0 
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9020 OVER O: PRINT AT 17,255" 9500 INPUT As 


Oo! O) 
"5AT 18,253" "5 AT 19,25; 9510 PRINT VAL ("BIN "+A$) ! 
pe ": FOR F=8 TO 177 STEP 5: 9520 6D TO 9500 o 

O ¡PLOT INK (RND*7)5F,INT (RND*15 | 9999 FOR N=0 TO 255: INK INT (N/ | 
; 5)+8: NEXT Fz INK S: PLOT 0,0 31.875): PLOT N,Oz DRAW 0,175: N¡ 

! 9030 GO TO 151 EXT N ¡O 
I ' 
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5. Caza delta 


Conduce tu caza por la pantalla, y pasa por encima de todos los números que aparezcan 
en ella; no debe quedar ninguno, ha llegado la hora de la venganza. 

Los números aparecen de forma aleatoria, y sólo están presentes durante un corto 
espacio de tiempo; por eso, debes darte prisa y acabar con ellos antes de que se escapen. 


JN l ñ 

n | | li 1 ME IS ' 
| 
EITIAEA PO 
(O 


Los controles de tu caza son: 


J—Para ir a la derecha. 
L—-Para ir a la izquierda. 
Q—Para subir. 
Z—Para bajar. 


Debes fijarte en las líneas desde la 120 hasta la 150, ya que, aparte de determinar en qué 
dirección te has movido —basándose en la lectura que ha hecho INKEY$ del teclado—, 
también eligen el carácter definido (U.D.G.) que tiene que aparecer en la pantalla. Esta es una 
técnica buena, que debes recordar cuando necesites un coche, nave espacial, o similar, que 


tenga que ir en diferentes direcciones. 


t 
1 REM x** CAZA DELTA xx 
¡ 10 LET MAX=0 

20 GO SUB 1000 

30 GOD SUB 700 

| 100 PRINT AT PDE,PAE;" " 

| 105 LET PDE=PD: LET PAE=PA 

| 110 PRINT AT PD,PA;5A$ 

120 IF INKEY$="L" THEN LET A$= 
| "za LET PA=PA+1: IF PA>25 THEN 
|. LET PA=25 

| 130 IF INKEYS$="J" 
¡Mp LET PA=PA-1: 
' LET PA=5 

¡ 140 IF INKEY$="Q" 


THEN LET A$= 
IF PA<S THEN 


THEN  LET A$= 


110 


SRAFICC A 
RAFI E 
RAFFO 
GRAFICO E 


"3 LET PD=PD-1: IF PD<4 THEN LE 
T PD=4 

150 IF INKEY$="Z" 
017 LET PD=PD+1: 

LET PD=18 

160 LET J=CODE (SCREEN$ (PD,PA) 
)-48 

165 IF J<>-16 AND J<>-48 THEN 
LET PUNT=PUNT+J*10: BEEP .007,10 


THEN  LET A$= 
IF PD>18 THEN 


2 BEEP .007,15: BEEP .007,10: GOD 
SsuB 700 

170 LET TIEMPO=TIEMPO-1 

180 PRINT AT 2,53"TIEMPO: "¿TIE 


| MPO3" "5AT 20,55 "PUNTOS: "5PUNT 


O 190 IF RND>.96 THEN GO SUB 700 
500 IF TIEMPO>0 THEN GOD TO 100 
0) 510 IF PUNTMAX THEN LET MAX=P 
UNT: PRINT AT 2,133 FLASH 13 "NUE 
VO RECORD! ": FOR G=1 TO 50: BEE 
O¡ P .005,G: BEEP .005,50-G/2: BEEP 


.005,10+G6/5: NEXT G 
=-50 TO 50: BEEP .005, 


540 RESTORE : GO SUB 1000 


O 550 GO TO 30 

£00 STOP 
O | 700 PRINT AT ND,NAz" " 

710 LET NA=INT (RNDx20)+5: LET 
O ' ND=INT (RNDx*14)+4 

720 PRINT AT ND,NA3 FLASH 13 INT 
O (RND*9) +1 

730 RETURN 
O | 1000 REM INICIALIZACION 


1010 BORDER 2: PAPER 2: INK 1: 


O 1020 FOR A=5 TO 25 
1030 FOR B=4 TO 18 
O 1040 PRINT AT B,As "ij" 
1050 NEXT B: NEXT A 
1060 LET PA=6: LET PD=5 
O | 1070 LET PAE=6: LET PDE=5 


1080 LET TIEMPO=500 


] 
i 
1 
| 
l 
I 
1] 
I 
I 
I 
t 
1] 
I 
l] 
J 
¡ 
1 
t 
l 
| 705 BEEP .005,50: BEEP .005,30 
| 
| 
t 
' 
¡ 
' 
1] 
I 
¡ 
!] 
¡ 
1 
| 
LET PUNT=0 


1100 FOR Z=1 TO 4 


1110 READ Z$ 


1120 FOR G=0 TO 7 


1130 READ M 


1140 POKE USR Z$+G,M 


1150 NEXT G 
1160 NEXT Z 
1170 LET As$ 


1180 INK 7: PAPER 1 

1190 LET NA=INT (RND*20)+5: LET 
ND=INT (RND*14)+4 

1200 PRINT AT 2,16; FLASH 1; PAP 


ER 13 INK 63" 
ERSE 13MAX 
1500 RETURN 


1510 DATA "A", 


165,195 


1520 DATA "B", 


6,176,192 
1530 DATA "C" 
6,24,24 


1540 DATA "D”, 


1353 
1550 REM 
1560 REM 
1570 REM 
- GRAFICO A 
1580 REM; 
1590 REM 
1600 REM 


«E — GRAFICO D 


MAX. PUNT.: "3 INV 


24,24,36,36,66,90, 


192,176,76,35,35,7 


,195,165,90,66,36, 3 


3,13,50,196,196,50 


¿ — GRAFICO B 


-— GRAFICO C 


Oo o. 0 


O 


Oo OoOoO0ososm0 


O 
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6. Meteoritos 


Este es un pequeño programa con el que te puedes pasar las horas muertas; de esta 
forma las horas pasarán un poco más rápido, pero seguirán siendo horas muertas. 

Tú manejas un caza-galáctico del tipo V-INVERTIDA, y te encuentras cruzando un 
cinturón de asteroides. 

Los mandos de la nave son: 


M>——Derecha. 
Z—Izquierda. 


Cuando acabes el juego, es decir, cuando te choque, aparecerán los parsecs que has 
recorrido a través del cinturón. 


[) 


Po) E + 

2 ES 
PJ il se 
— Lo 
¡A Ñ 
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1 REM **e METEORITOS X* 
53 BORDER 1: PAPER Oz INK 7: C 
Ls 
10 LET h=15: LET s=0 
20 POKE 23692,10: PRINT AT 21, 


RND*313"*"3AT 21,RND*315"*"5AT 2 
1,RND*313"x*"5AT 21,RND*313"*"*>” 
30 LET h=h+(INKEY$="m" AND h<3 


AND h>0) 
(0,h)="%" THEN 


1)-(INKEYs$="z" 
40 IF SCREEN$ 


GO TO 70 

50 PRINT  INK 43AT 0,h3"v" 

60 BEEP .001,20: LET s=s+1:3 GO 
TO 20 

70 PRINT — INVERSE 15 
INK 43AT 0O,h3s3"v" 

80 PRINT FLASH 153AT 21,0383" 
PARSECS" 

90 FOR n=i TO 10002 
N 


FLASH 1; 


NEXT n:z RU 
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7. Eliminador 


Ahora controlas un gráfico que seguro que te recuerda a alguien. Tu misión, si decides 
aceptarla, es eliminar a uno de los dos bichos marcianos que aparecen por la pantalla. Los 
eliminas pasando sobre ellos. Da igual que pases por cualquiera de ellos. 


pS 
— 
E 


Los controles de tu eliminador son: 


Q—Para subir. 
Z—Para bajar. 
H—-Para ir a la izquierda. 
K—Para ir a la derecha. 


ELIMINADOR ha sido escrito por Rhys Thomas, y usa los gráficos de Daniel 
Haywood. 


econo GRAFICO A 


en GRAFICO E 


1 REM *%* ELIMINADOR *% 
3 REM PON MAYUSCULAS 
6 INK O: PAPER 7: BORDER O: B 


Es"  "5ATA,B; 
+ Y3 INK 13" do" 


16 LET A2E=A2: LET B2E=B2: LET 


INK 23" ¿e "¿AT X 


| 
1 | O 
yl ¡RIGHT 1: CLS AE=A3 LET BE=B: LET XE=X:2 LET Y | 
' 7 GO SUB 150 E=Y | 
Oo! 8 REM 3% -—-—— GRAFICO A 20 IF X=A AND Y=B OR X=A2 AND | O 
! 9 REM di ---- GRAFICO B Y=B2 THEN GO TO 120 ¡ 
O ¡ 10 LET X=10: LET Y=16:2 LET R=0 25 IF C=0 THEN LET B=B-1: LE ¡y 
¡2 LET A=INT (RND*21): LET B=INT T A=A-1: LET A2=82+1: LET B2=B2+ | 
¡ (RAD*31): LET A2=INT (RND*21)2 L 
O ET B2=INT (RND*31) 30 IF C=2 THEN LET A=A+1: LE ¡O 
¡o 11 LET A2E=A2: LET B2E=B2: LET | T B=B+1: LET A2=42-1: LET B2=B2- | 
O | XE=X: LET YE=Y: LET AE=A: LET B | 1 O 
¡ E=sB 40 IF B<1 THEN LET B=1 
12 LET C=INT (RND*3) 41 IF B2<1 THEN LET B2=1 
O 14 PRINT AT A2E,B2E3"  "5AT AZ 45 IF B>30 THEN LET B=30 O 
1. ,B23 INK 43" 2" 46 IF B2>30 THEN LET B2=30 
O | 15 PRINT AT AE,BE5" "¿AT XE,Y 47 IF A>19 THEN LET A=19 LO 
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48 IF A<1 THEN LET A=1 O: PRINT — INK RND*63AT X,Y3"ai"s 


*20+30: PRINT AT X,Y5 INK RND*65 1252,127,60 
FLASH 15""a 


1 I 

is ¡49 IF A2>19 THEN LET A2=19 NEXT G [9 
50 IF A2<1 THEN LET A2=1 130 STOP 

O |. 53 LET A$=INKEYS : 150 FOR Z=1 TO 2 o) 
¡o 55 IF A$="0" THEN LET X=X-1 160 READ Z$ 

O! 60 IF A$="Z" THEN LET X=X+1 170 FOR X=0 TO 7 o 
o 65 IF A$="H" THEN LET Y=Y-1 180 READ M 
70 1F A$="K" THEN LET Y=Y+1 190 POKE USR Z$+X,M 

O ¡100 LET R=R+1 200 NEXT X 0 
; 110 GO TO 12 210 NEXT Z 

O | 120 PRINT INK 65 PAPER 2; FLAS 220 RETURN O 
¡ H 153AT 0,3;3"LO HICISTE EN "5R3" 230 DATA "A",129,90,60,90,60,10 
: MOVIMIENTOS" 2,153,195 . 

O ¡125 FOR G=1 TO 20: BEEP .09,RND 240 DATA "B",60,127,252,240,240 E 
t ' 
Ú I 
! t 
! ! 


BEEP .09,RND*20+3 
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8. Rescate lunar 


Ahora tienes que hacer el papel de un arriesgado aventurero del espacio. Tu misión es la 
de salvar a una persona, que ha quedado náufrago en la Luna. 

Antes de llegar a la Luna debes pasar por un cinturón de asteroides. Una vez que has 
llegado a la Luna y has recogido al náufrago, todavía no has acabado tu misión. 

Ahora debes volver a la nave nodriza, y para ello has de pasar otro cinturón de 
asteroides, pero esta vez, para que el juego sea más fácil, no se mueven. 


Espero que la misión no sea demasiado para ti y la consigas realizar sin ningún 
percance. 

El programa te viene con las instrucciones, pero lo básico que debes saber son las teclas 
para mover tu nave: 


5—Para ir a la izquierda. 
8 —Para ir a la derecha. 


E e BRAFICO A 


1) 


EA e AMA TIO ES 
EE A BREAAF AO A 


AA A BERMEO EF 


1 


Br A GRAF MAN 
[) al «+ GRAFICO H 
¡CU la GRAFICO 1 
—= al IBER PA FR TACA 
1) o 


2 


18 


bs=" 


1 REM +** RESCATE LUNAR + 
2 RESTORE : GO SUB 9990: LET 
a$="< 5] 5) 7) 


LET css” 
=D y 55] ¿a 
3 LET HS=0 
4 


LET S=0: LET L=3: LET TINTA 


5 LET N=0: LET B=312 LET A=1: 
LET C=31 
6 LET X=0: LET V=X 
7 LET Y=INT (RND*31)+1: LET W 
=Y 
9 BORDER 7: PAPER 7: CLS : IN 
K Oz INPUT "INSTRUCCIONES ? (S/N 
"5Z2$:3 IF Z$="S" OR Z$="s" OR Z$ 
="SI" THEN GO SUB 9000 
10 BORDER 2: PAPER 7: INK 4: C 
Ls 
11 PRINT AT 18,05"hhn. 
H" 
12 PRINT AT 19,05 " lili. 
al 
13 PRINT AT 20,03 ” hills. 
cti A 


14 PRINT AT 21,03 " MINA 
"5 INK 15”"BR8"5 INK 43" somo AAA 
pS O E 
A 5415" PULSA UNA TECLA PA 
RA EMPEZAR" 

165 PAUSE 4E4 

17 PRINT AT 0,63" 

" 


18 IF N=1 THEN GO TO 210 

19 LET A=A+1 

20 LET C=C+2: LET B=B-1: 
=32 THEN LET C=0 

21 IF A=31 THEN LET A=1 

22 IF B=0 THEN LET B=31 


IF C> 


23 PRINT  INK TINTA+45AT 17,05 
B$(A+11 TO A+42) 

24 PRINT  INK TINTAS5AT 5,05A$( 
A TO A+31) 

25 PRINT  INK TINTA+15AT 8,0;5B 
$(B TO B+31) 

26 PRINT  INK TINTA+25AT 11,05 
C$(C+4 TO C+35) 

27 PRINT  INK TINTA+33AT 14,05 


A$(B+7 TO B+38) 

28 IF INKEY$="5" 
-1 

29 IF INKEY$="89g" 
+1 

30 LET X=X+1 


THEN LET Y=Y 


THEN LET Y=Y 


31 IF SCREENS (X,Y)<>" " THEN 
60 TO 100 

32 PRINT AT V,W5" " 

33 PRINT — INK O5AT X,Y3"E"2 L 
ET V=X: LET W=Y: IF Y<=0 THEN 6G 
oO TO 100 

34 IF Y>=31 THEN GO TO 100 

35 LET S=5+5 

36 IF X=20 THEN GO TO 200 

37 GO TO 19 

100 PRINT AT V,W3" ":z REM RUTIN 
A DE PERDIDA DE VIDA" 

101 LET L=L-1 

102 FOR Z=1 TO 10: PRINT  INK 2 
3 PAPER 65AT X,Y3"¡"2z FOR M=1 T 
D 10: NEXT Mz PRIN INK 65 PAPE 
R 23AT X,Y;5 "3 NEXT Z: PRINT A 
T X,Y; ”. ou 

103 FOR Z=-15 TO -20 STEP -1: B 
EEP .65,Z: NEXT Z: BEEP 2,-21 

104 LET FUEL=30: LET B=31: LET 
A=1: LET C=31: LET X=0: LET Y=15 


105 IF L<=0 THEN GO TO 110 

106 60 TO io 

110 FOR M=0 TO 50: NEXT Mz FOR 
Z=6 TO O STEP -1: PRINT — INK Z3A 
T 10,12;"GAME OVER": FOR M=0 TO 
50: NEXT Mz NEXT Zz FOR Z=5 TO — 
15 STEP -.5 

111 BEEP .05,Z: 

113 BEEP 2,-15: 
ET HS5=S 

115 PRINT  INK O5AT 11,123 "PUNT 
"53S3AT 12,115"PUNT-MAX: "5HS 
INPUT "OTRO JUEGO? (S/N)?"5 


NEXT Z 
IF S>HS THEN L 


IF Z$( TO 1)="S" THEN GO T 


IF Z$( TO 1)="N" THEN STOP 
GO TO 1146 

IF (Y=9) OR (Y=10) OR (Y=26 
(Y=25) THEN GO TO 202 

GO TO 100 

BEEP .75,0: FOR Z=1 TO 10: 
.1,Z: NEXT Z: BEEP 1,11 

205 LET Yi=Y: LET V=20: LET W=Y 
1: LET S=S+300 

206 LET N=1 


ooo 0 


o) 


119 


O O 


O OOOO OO QO 


O 


O 


PAUSE 1000: 60 TO 10 

PRINT — INK O5AT 20,Y13"2"2 
J=Y: LET K=0: FOR Z=1 TO 75 
LET A=INT (RNDx*16)+1 

LET B=INT (RND*32) 

LET C=INT (RNDx*6) 


BEEP .05,30: PRINT — INK Cj3A 


, 
215 NEXT Z 
216 PRINT  INK O5AT 0,05 "PULSA 
UNA TECLA PARA EMPEZAR" 
217 PAUSE 4E4 
218 LET X=20: LET Y=Y1:z PRINT A 


T 0,03" 

y 
219 LET X=X-1: 
TO 300 


IF X=0 THEN GO 


220 IF Y<>0 AND INKEY$="5" THEN 
LET Y=Y-1 
221 IF Y<>32 AND INKEY$="8" THE 


N LET Y=Y+1 

222 PRINT AT V,W3" "” 

223 IF X<>0 AND SCREENS (X,Y)<> 
" " THEN GO TO 100 

224 IF J<Y THEN LET J=J+1 

225 IF J>y THEN LET J=3-1 


226 PRINT — INK O53AT X,Y3"3": L 
ET V=X: LET W=Y 

227 PRINT  INK 0O533AT K,J-23" «il 
Le » 


228 LET S=S+10 
230 FOR Z=1 TO 
O 219 

300 IF Y=J THEN GOD TO 302 

301 GO TO 100 

302 PRINT AT X+1,Y-15" " 5 
INK O5AT K,J3"MPp":z FOR Z=1 TO 2 
: BEEP .25,0: BEEP .25,3: BEEP . 


10: NEXT Z:z GO T 


1,3: BEEP-.1,3: BEEP .25,0: BEEP 
.25,21 NEXT Z 

303 BEEP .25,0: BEEP .25,3: BEE 
P 1,0 

304 LET S=5+500 

314 PAUSE 1000: LET N=0: LET B= 
31: LET A=11 LET C=31: LET X=0: 
LET Y=INT (RND*31)+1: GO TO 10 
9000 BORDER 7: PAPER 71 INK O: C 
LS 

9001 PRINT AT 0,03" - RESC 
ATE LUNAR -" 


120 


9002 PRINT : PRINT " Un astromau 
ta esta naufrago en la superfice 
lunar." 

9003 PRINT " Tienes el deber de 
aterrizar en”"”"uno de los dos mo 
nticulos de a-" 

9004 PRINT "traque (mostrados en 
azul)y sal-varle." 

9006 PRINT " Pero para hacerlo, 

antes debes” 


9008 PRINT "pasar por el cinturo 
n de aste-"”"roides" 

9010 PRINT " Si te las arreglas 
para salvar" 

9012 PRINT "al astronauta, enton 


ces tienes" 

9014 PRINT "que atravesar otro c 
inturon de" 

9016 PRINT "meteoros, 
nmoviles." 


esta vez i 


9018 PRINT "Los controles son:" 

9020 PRINT ?*"5 --— Ir a la izqui 
erda" 

9022 PRINT ?*"8 -——- Ir a la derec 
ha" 

9024 PRINT $1;5"Pulsa una tecla p 


ara empezar." 
9026 PRINT 405 
9028 PAUSE O 
9030 RETURN 
9990 FOR A=144 TO 153: FOR B=0 T 
O 7: READ C:z POKE USR (CHR$ A)+B 
»C: NEXT B: NEXT A: RETURN 

9991 DATA 40,124,1265,60,24,36,66 
1195 

9992 DATA 
9993 DATA 
65,170 
9994 DATA 
s15 

9995 DATA 
99965 DATA 
4,120,240 
9997 DATA 
2,254,255 
9998 DATA 1,3,7,15,31,63,127,255 
,128,192,224,240, 255,259, 290, 200 
9999 DATA 1,3,7,15,259) 299) 299, 2 
55 


P.Brown, 1982" 


0,4,106,146,66,36,24,0 
210,37,187,84,179,74,1 


15,30,62,101,101,62,30 


255,0,0,0,0,0,0,255 
240,120,124,166,166,12 


128,192,224,240,248,25 


9. Los bichos galácticos 


¿Podrás destruir el trío de los bichos galácticos? 

En este juego debes imaginar que la pantalla está dividida en diez columnas; éstas están 
numeradas del 0 al 9. El trío, al bajar hacia la Tierra, irá pasando por estas diez columnas; 
tú, para vencerles, debes disparar apretando el número de la columna en la que creas que 
están en ese momento. 

El trío se acerca más cada vez que aparece, y para vencerles deben recibir al menos 
quince 15 “impactos de tus láser antes de aterrizar. 

Cada vez que tus láser les den, recibirás una pequeña muestra de la danza de guerra de 
estos terroríficos invasores. 

Estos son los tres bichos que te van a estar incordiando mientras juegues. 


E 
LJ) 


BE SA GRAFICO Fl PATA 
E GRAFICO E [_) 
Eo == GRAFICO 
E GRAFICO 


JO 


3 
N 
pa 


REM x*x* LOS BICHOS +s*e 

REM *%* GALACTICOS +x* 

GO SUB 150 

LET C=0 

LET H=40 

LET K$=CHR$ 16+CHR$ 1+"30"4 
16+CHR$ 2+":2"+CHR$ 16+CHR$ 


LET A=0 

PRINT AT 20,93 INK 65 PAPER 
Oj FLASH 15" BICHOS MATADOS> "; 
INVERSE 1;C 

IF C>14 THEN GO TO 110 

LET B=INT (RND*9. 9) 

LET T=B+1*SGN (9-—B) 

LET B=Bx*3 

PRINT AT A,B3K$ 

IF A=20 THEN (GO TO 135 

GO SUB 120 

IF INKEY$<>STR$ T THEN GO 


80 LET C=C+1 
85 FOR R=1 TO 9 
86 BEEP .08,RND*15: PRINT  INK 
BEEP .08,RND+*15: 
INK 23AT A,B3" 5" 


PRINT AT 1,15 INK 33 PAPER 


FLASH 13"GANASTE" 


122 


115 STOP 
120 FOR Z=1 TO 5*(H-A) 
125 NEXT Z 
130 RETURN 
135 CLS : PRINT AT 1,05 FLASH 1 
3 INK 23 PAPER 63" LOS BICHOS HA 
N ATERRIZADO, ASI"*" QUE HAS PER 
DIDO!!!", 
136 PRINT AT 20,93 INK 2; 
63 FLASH 13 "HAS MATADO A "; 
ERSE 1505" BICHOS" 
137 PRINT AT 10,153 FLASH 15K$;5 
AT 11,15; INVERSE 1;k3 
STOP 
FOR Z=1 TO 4 
READ Z$ 
FOR G=0 TO 7 
READ M 
POKE USR Z$+G,M 
NEXT G 
NEXT Z 
BRIGHT 1: 
CLS 
220 RETURN 
230 DATA "A",195,165,24,60,90,3 
6,24,231 
240 DATA "B",0,24,60,90,126,24, 
36,90 
250 DATA 
136,103 
260 DATA 
,17,230 


PAPER 
INV 


PAPER 7: BORDER 1 


"C",99,68, 40,84,56,48, 


"D",198,34,20,42,28,34 
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10. Star Quest 


Este juego te hará pasar largos ratos con tu ordenador. El programa lo tienes que 
cargar en dos partes diferentes, debido a que el juego ocupa justo dieciséis Kbytes, y a los 
que tengan el Spectrum con esta capacidad de memoria no les cabrían las instrucciones. 


[_) 
Il) 
E] 
lu) 
E] 
lu) 
E 
[_) 
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En la primera parte están las instrucciones, los gráficos definidos y el código máquina 
que usa el juego, y en la segunda está el juego en sí. 

El programa tiene las instrucciones completas. 

Este es el listado de la primera parte del programa. No olvides que lo debes grabar en la 
cinta antes de teclear la otra parte: 


uu 
[_) 
ue - BRAFICO Fi 
¡a = RRAAF TIC Es 
= EARAAF TO E 
O ” BERFTCO 
¡O 
A 
¡O 


REM_x%* STAR QUEST ** 
OVER O: RESTORE : CLEAR 323 


80 PRINT : PRINT 
85 IF N=8 THEN  INK 4 
90 PRINT ” A A 


I I 
10) e rd INK 7: BORDER 1: € RDA RURRIER" O 
1 : 0 ' 

¡25 FOR N=1 TO 8: INK Nz PRINT El q MA 1 y | 5 
O ¡ar 2,01 110 PRINT " TO o 
26 IF N=83 THEN  INK 64 ur 
O 30 PRINT " A 120 PRINT " A O 
A il HA mn 
MO Y 
h 45 PRINT " El EN li] 140 PRINT " CA ' 
om au” E p9 
o ; M Bam a O Es) 
|. 60 PRINT Mn 160 PRINT AT 2,285"*"5AT 4,263" | 
o! pa Aa RU3AT 5,283 "X"5AT 7,293 "*"5AT 9, | y 
| 65 PRINT " CI Zoe e 
162 PRINT AT 2,2;3"*"3A8T 4,13"*" | 
| PAT 5/33 "*"3AT 7,23 "*"3AT 9,13"x 1 O 


E" 
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165 NEXT N 

170 PRINT AT 20,15 PAPER 2; FLA 
SH 153" (C) HOTT SPACE SOFTWARE " 
189 GO SUB 3000 

190 PLOT 0,0: DRAW 0,175: 
255,0: DRAW 0,-175: DRAW -255,0 
200 BRIGHT 1: INK 7: PRINT AT 2 
0,1;"QUIERES INSTRUCCIONES? S/N" 
201 IF INKEY$="" THEN GO TO 20 
1 


DRAW 


202 IF INKEY$="S" OR INKEY$="s" 
THEN CLS : GO TO 210 

203 IF INKEY$="N" THEN GO TO 4 
00 


204 GO TO 201 

210 PLOT 0,0: DRAW 0,175: DRAW 
255,0: DRAW 0,-175: DRAW -255,0 

220 PRINT AT 2,43 PAPER 2; "BIEN 

VENIDO AL ENTERPRISE" 

230 OVER 1: PRINT AT 4,13"PODRA 
S COMO ALMIRANTE DE LA "ss P 
RINT— INK 13 PAPER 6; "ENTERPRISE 
"5 INK 732 PRINT ", ULTIMA ESPER 
ANZA DE LA HUMANIDAD, BARRER Y E 
XPULSAR, A LOS CRUCEROS DEL IMP 
ERIO DE NUESTRA GALAXIA, Y DE ES 
TE MODO PERMITIR EL DESARROLLO D 
E LA HU-MANIDAD POR EL UNIVERSO? 


235 PRINT : PRINT " ACEPTAS TU 


MISION? S/N": INPUT A$: IF A$="N 
" OR A$="n" THEN STOP 
237 CLS : DRAW 0,175: DRAW 255, 


: DRAW 0,-175: DRAW -255,0 

238 PRINT AT 2,43 PAPER 2; "BIEN 

VENIDO AL ENTERPRISE" 

240 PRINT AT 4,153"PARA CUMPLIR 
CON TU MISION LA PRINT 3 I 
NK 13 PAPER 63 "ENTERPRISE"3: PR 
INT " DISPONE DE: “3 

245 PRINT : PRINT "%* "5 INK 25 
PAPER 73"LASERS"3 INK 75 PAPER O 
3":DISPARAS DIRECTAMENTE SOBRE 
TUS ENEMIGOS. "5 FLASH 153" NO DES 
PERDI-CIES LOS TIROS"5 FLASH 05" 
, YA QUE GASTAN MU-CHA ENERGIA. " 

260 PRINT : PRINT — INK 63"x*TORP 
EDOS DE FOTONES: "5" ESTOS NO GA 
STAN ENERGIA COMO LOS ANTERIO-RE 
S,ADEMAS SON MAS FIABLES." FLAS 
H 1;5"PERO TEN CUIDADO"; FLASH 05 
" PUES SOLO TIENES 10" 

265 PRINT : PRINT — INK 43"*ESCU 
DO: "5 INK 7;"ES UNA BARRERA DE E 
NERGIA QUE TE DEFIENDE DE LOS LA 
SERS ENEMIGOS" 


268 PRINT +1; "UNA TECLA PARA CO 
NTINUAR": PAUSE O 
270 CLS : PLOT 0,0: DRAW 0,175: 

DRAW 255,0: DRAW 0,-175: DRAW - 
255,0 

275 PRINT AT 2,4; PAPER 2; "BIEN 

VENIDO AL ENTERPRISE" 

280 PRINT AT 4,1;"EN EL ESPACIO 

HAY UNAS "3 INK 43 PAPER 1;"BAS 
ES"; INK 7; PAPER 05" ENLAS QUE 
PUEDES ATRACAR Y ALLI SETE REPAR 
ARAN LOS DANOS, TE DARANENERGIA, 
Y TE LLENARAN LA DESPEN-SA DE TO 
RPEDOS. " 

285 PRINT $1;"UNA TECLA PARA CO 
NTINUAR": PAUSE O 

287 CLS : PLOT 0,0: DRAW 0,175: 

DRAW 255,0: DRAW 0,-175: DRAW — 
255,0 

289 PRINT AT 2,45 PAPER 2; "BIEN 

VENIDO AL ENTERPRISE" 

290 PRINT AT 4,1;"LA GALAXIA SE 

DIVIDE EN 56(7*8)SECTORES. AL P 
RINCIPIO DE LA LU-CHA TE SERA DA 
DO UN NUMERO QUE INDICA LOS KLI 
NGONS,LAS BASES, Y LAS ESTRELLAS, 

QUE HAY EN LA GA-LAXIA. POR EJE 
MPLO: 213" 

295 PRINT AT 11,123"2 1 3" 

300 PLOT 95,72: DRAW -20,-10: P 
LOT 115,72: DRAW 0,-10: PLOT 132 
,72: DRAW 20,-10 

310 PRINT AT 15,33 "KLINGONS BAS 
ES ESTRELLAS" 

315 PRINT +15"UNA TECLA PARA CO 
NTINUAR": PAUSE O 

316 CLS : PLOT 0,0: DRAW 0,175: 

DRAW 255,0: DRAW 0,-175: DRAW - 
255,0 

318 PRINT AT 2,45 PAPER 2; "BIEN 

VENIDO AL ENTERPRISE" 

320 PRINT AT 4,1;"EN LA NAVEGAC 
ION Y AL DISPARAR LOS TORPEDOS E 
L ORDENADOR DE LA NAVE TE PEDIRA 
UNA DIRECCION QUEVIENE DADA POR 
: 1 

330 PRINT AT 10,133"7 8 9"5AT 1 
1,133"4 5 6"3AT 12,135"1 2 3" 

340 PRINT : PRINT "DEBES ACTUAR 

CON RAPIDEZ Y MATAR TODOS LOS " 
3 INK 43 PAPER 13"KLINGONS"5 INK 

75 PAPER 05", ANTES DE QUE LA 
NCEN SU ULTIMO ATAQUE A LATIERRA 
“u 
345 PRINT +15 "UNA TECLA PARA CO 
NTINUAR": PAUSE O 


oO O 


0) 


oO 0.0 


€ 


Oo OoOoOosomOo 


350 CLS : 

DRAW 255,0: 
255,0 

351 PRINT AT 2,45 PAPER 2; "BIEN 

VENIDO AL ENTERPRISE" 

355 PRINT AT 4,1;3"EN LA PARTE D 
E ABAJO ESQUINA IZQUIERDA DE T 
U PANTALLA APARE- CEN 9 CAJAS DE 

NUMEROS TU ERES EL DEL CENTRO, 
Y LOS DEMAS SON LOS SECTORES Q 
UE TE RODEAN" 

3465 PLOT 255,0: DRAW 0,175 

370 PRINT AT 9,35""5AT 9,33"""3 

INK 33 "90"5 INK 753""= KLINGON"; 
AT 10,33"*"5 INK S5":"5 INK 735" 
vaz BASE"5AT 11,33"""3 INK 63"0" 
3 INK 73""= ESTRELLA"5AT 12,33"" 
"5 INK 65"50"5 INK 753"*= ESTRELL 
A DAFIADA" 

380 PRINT AT 15,10; "BUENA SUERT 
E! 1) 

390 PRINT AT 16,10;" le 

400 PRINT AT 19,15 PAPER 2; FLA 
SH 15"PULSA PLAY EN EL CASSETTE! 
” 


PLOT 0,0: 
DRAW 0,-175: 


DRAW 0,175: 
DRAW — 


410 RUN 
2999 
3010 


3030 


LOAD ""x 
STOP 
FOR A=32400 TO 32549 

READ N: POKE A,N 

3040 NEXT A 

3050 DATA 6,1,197,33,15,0,17,40, 
0,229,205,181,3,225,17,4,0,167,2 
37,90,125,254,255,32,237,193,16, 
230,201,0 


126 


3060 DATA 6,20,197,33,0,3,17,1,0 
,229,205,181,3,225,17,16,0,167,2 
37,82,32,240,193,16,233,201,0,0, 
0,0 

3070 DATA 6,3,197,33,15,0,17,40, 
0,229,205,181,3,225,17,16,0,167, 
237,90,125,254,255,32,237,193,16 
,230,201,0 

3080 DATA 6,2,197,33,0,4,17,5,0, 
229,205,181,3,225,17,8,0,167,237 
,82,32,240,193,14,233,201,0,0,0, 
O 

3090 DATA 6,20,197,33,0,1,17,1,0 
,229,205,181,3,225,17,16,0,167,2 
37,82,32,240,193,16,233,201,0,0, 
0,0 

4000 FOR A=1 TO 5: 
N=0 TO 7: READ UDG: POKE USR A$+ 
N,UDG: NEXT Nz NEXT Az RETURN 
4010 DATA "w",0,0,238,40,56,16, 
0,0 

4020 DATA "pol",129,153,189,231,2 
31,189,153,129 

4030 DATA "4",60,102,219,189,18 
9,219,102,60 

4040 DATA "x",129,102,60,60,60, 
60, 102,129 

4050 DATA "1",60,90,106,82,74,7 
0,66,0 

4060 RETURN 
5000 INPUT a$ 
5010 PRINT VAL 
D 5000 


READ A$: FOR 


("BIN "+a$): GO T 


00 00 0 O 


El segundo listado es el siguiente. Como puedes ver en el final del primer programa 
(líneas 380-410), el segundo es llamado desde el primero: 


1 REM *x STAR QUEST ** 
OVER O: LET J=PI-PI: LET AS 
LET K=PI/PI: BORDER J: PAPE 
FLASH J: INK VAL "7": BRIGH 
CLS 
PRINT AT VAL "2",VAL "9"5 P 
APER K3 INK VAL "7"5 FLASH K5" S 
TA QUEST ": PRINT AT VAL "10",VA 
L "9"; PAPER VAL "2"3" ELIGE NIV 
EL ” 
25 PRINT AT VAL “11“,VAL "11%; 
PAPER VAL "2"5" (1 TO 5) " 

30 INPUT "NIVEL",NIV: IF NIV>Y 
AL "5" OR NIV<VAL "1" THEN GO T 
O VAL "30" 

35 LET TIE=VAL "(6-NIV)*100" 
40 LET WP=J: LET H=VAL "100": 
LET D=VAL "10": LET TOR=D: BRIGH 
T J: GO SUB VAL "2600": RANDOMIZ 
E 1 INK 7: PRINT AT K,k5" ESPERA 

55 LET Al=J: LET ST=J: LET BA= 
J 

60 LET TOP=d: 
ME=J: LET X=J: 
J: LET YYY=J: 

LET SH=VAL "2000": 
", VAL "7" VAL "3")3 
")3 DIM WIVAL "5")1 
")4 DIM RIVAL "4"): 
")3 DIM Y(VAL "5") 

70 FOR X=kK TO VAL 

TO VAL "7" 

80 LET ALi=INT (RND*VAL "4"): 

LET AL=AL+(AL1 AND AL<VAL "50"): 
LET G(X,Y,K)=AL1: PRINT AT VAL 
"3", VAL "18"3 "ALIENS: "3AL 

90 LET BA1=(K AND RND<VAL ".2" 
): LET BA=BA+BA1: LET G(X,Y,VAL 
"2")=BA1 

100 LET ST1=INT (RND*VAL "4"): 
LET G(X,Y,VAL "3")=ST1 ' 

110 NEXT Y: NEXT X 

120 LET X=INT (RND*VAL 

"3"; LET Y=INT (RND*VAL 
L mega 

130 PRINT AT K,Kk; 
ESTA EN "3X3"."5Y 


LET Tl=J: LET AT 
LET Y=J: LET XXX= 
LET EN=VAL "5000" :z 
DIM G(VAL "8 
DIM Q(VAL "S 
DIM E(VAL "4 
DIM T(VAL "5 


"8" FOR Y=k 


"3")+VAL 
"3")+VA 


INK VAL 


Ud " 


195 LET XX=INT (RND*VAL "17")+Y 
AL "3": LET YY=INT (RND*VAL "14" 
)+Kz PRINT AT XX,YY35 PAPER K3 B 


RIGHT K3"v" 
200 IF Y<K OR Y>VAL "7" DR X<K 
OR X>VAL "8" THEN PRINT AT VAL 


"qu, VAL "8"; PAPER K+Kj"TE HAS S 
ALIDO DE"3AT VAL "S5",VAL "5"5 P 
APER J; "GALAXIA": GO TO VAL "300 
o” 

201 FOR N=K TO G(X,Y,K)z LET Q( 
N)=INT (RND*VAL "17")+VAL "3"1 L 
ET W(N)=INT (RND*VAL "14")+Kz PR 
INT AT Q(N),W(N)5 PAPER K3 FLASH 

15 INK VAL "4"5"j"z NEXT ON 

210 FOR N=1 TO G(X,Y,VAL "2"):3 
LET E(N)=INT (RND*VAL "17")+VAL 
"3"; LET R(N)=INT (RND*VAL "14") 
+Kz PRINT AT E(N),R(N)5 PAPER K; 

INK VAL "5"3"Gh": NEXT ON 

220 FOR N=K TO G(X,Y,VAL "3"): 
LET T(N)=INT (RND*VAL "17"+VAL " 
3"): LET Y(N)=INT (RND*VAL "14") 
+ks PRINT AT t(n),y(n); PAPER k; 

INK VAL "6"3"x"z NEXT n 

225 LET o1=VAL "15"+(K+K AND X= 
K): LET P1=VAL "19"+(VAL "4" AND 

Y=K):2 FOR D=X+(-1 AND X>K) TO X 
+(K AND X<VAL "8"): FOR P=Y+(-1 
AND Y>K) TO Y+(K AND Y<VAL "7"): 

FOR L=k TO VAL "3": PRINT AT 01 
,P15G(0,P,L): LET Pi=P1+Kz NEXT 
La LET P1=P1+K: NEXT Pz LET 01=0 
1+VAL "2": LET P1=VAL "19"+(VAL 
"4" AND Y=K): NEXT O 

226 PRINT AT VAL "15",VAL "19"; 
(Uexe" AND Y=K)3AT VAL “17",VAL 
01995 ("exx" AND Y=K)53AT VAL "19" 
¿VAL "19"3 ("exx" AND Y=K) 

228 PRINT AT VAL "15",VAL "19"; 
(Mer UU" AND X=K)53AT VAL 
119%, VAL "19% ("eL LJ)" AN 
D X=VAL "8") 

230 PRINT AT K,K3"ESTAS EN 
"o, "sY3AT K,VAL "25"3EN3" 

K+K, VAL "26"55H3" "3AT VAL 


MES 
"5 AT 
.3. , 


VAL "25"3AL53" "5AT VAL "4",VAL 
"25"53T13" u 

240 IF ASK=K THEN RETURN 

250 IF INKEY$="N" THEN BEEP VA 
L "3",VAL "30": GO SUB VAL "500" 

260 IF INKEY$="P" THEN BEEP VA 
L "3",VAL "30": GO SUB VAL "700" 


O 0 0 


O 


O 


¡CAO) 


O 
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O 


o 0oO Oo O 


THEN BEEP VA 
SUB VAL "900" 
THEN CLS :z L 


270 IF INKEY$="T" 

L "3",VAL "30": GO 
280 IF INKEY$="X" 
IST 

290 IF INKEY$="S" THEN 
L ",.3",VAL "30": GO SUB 
o" 

300 IF INKEY$="R" THEN 
L ".3",VAL "30": GO SUB 
o" 

310 IF INKEY$="D" THEN 
L ".3",VAL "30": GO SUB 
o" 

315 PRINT AT xx,yy53 
HT k 5 DU gunas 

316 IF xx+xxx<VAL "3" OR xXX+xxXx 
>VAL "20" OR yy+yyy<k OR yy+yyy> 
VAL "15" THEN GO TO VAL "7000" 

320 LET xx=xx+xxxs LET yy=yy+yy 


BEEP VA 
VAL "110 


BEEP VA 
VAL "900 


BEEP VA 
VAL "140 


INK k3 BRIG 


Y. 
330 LET XXX=0: 


LET YYY=0: LET $4 
P=0 
340 PRINT AT xx,yy3 PAPER k5 BR 
IGHT kz "vw" 


350 IF en<j THEN PRINT AT VAL 
"4",VAL "2"5 PAPER k+k3" MOTORES 

PARADOS"5AT 5,55"SIN"3AT VAL "6 
" VAL "5"3 PAPER J3">ENERGIA<": 
GO TO VAL "3000" 

360 IF TI>TIE THEN PRINT AT VA 
L "4",VAL "2"3 PAPER K+K3" ERES 
DEMASIADO"; AT VAL "S5",VAL "4"3 P 
APER J3 "WLENTO4+": GO TO VAL "300 
o" 

370 IF AL<K THEN PRINT AT VAL 
"4",VAL "2"3 PAPER K+K5 "BIEN HEC 
HO! !"5AT VAL "5",VAL "3"3 PAPER 
J;"HAS GANADO! !": PRINT AT K,K5 


FLASH K3" PULSA UNA TECLA": PAUS 
E J: RUN 
390 FDR N=K TO G(X,Y,2): IF XX= 


Q(N) AND YY=W(N) THEN RANDOMIZE 


USR VAL "32520": LET EN=EN-VAL 
"1000" 
391 NEXT N 


400 FOR N=K TO G(X,Y,VAL "2%): 
IF XX=E(N) AND YY=R(N) THEN PRI 
NT AT K,K3"HREPOSTADO!! $": LET 


TOP=USR VAL "32430": LET EN=VAL 
"5000": LET SH=VAL "2000" 
401 NEXT N 


410 FOR N=K TO G(X,Y,3): IF XX= 
T(N) AND YY=Y(N) THEN GO TO VAL 
"3000" 

415 NEXT N 

450 LET EN=EN- (WP*VAL 


"4")3 LET 
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TI=TI+K: IF INT (RND*D)>VAL "7" 
AND G(X,Y,K>>J THEN GO TO VAL 
"2000" 


498 GO TO VAL "230" 


500 INPUT "DIRECCION";DIsz 1F DI 
<K OR DI>VAL "9" THEN GO TO VAL 
" 500 " 


505 IF DI=VAL "5" THEN LET XXX 
=J: LET YYY=J: RETURN 


510 INPUT "ALEJAMIENTO (1-3)72"5 
WP: IF WP>VAL "3" OR WP<J THEN 
GO TO VAL "SiO" 


530 IF DI=K THEN LET XXX=K*WP1 


LET YYY=-K*WP: RETURN 

535 IF DI=VAL "2" THEN LET XXX 
=K*WP: LET YYY=J: RETURN 

540 IF DI=VAL "3" THEN LET XXX 
=K*WP: LET YYY=VAL "4": RETURN 
545 IF DI=VAL "4" THEN LET XXX 
=J: LET YYY=-K*WP: RETURN 

550 IF DI=VAL "6" THEN LET XXX 
=Jt LET YYY=K*WP: RETURN 

555 IF DI=VAL "7" THEN LET XXX 
=-K*WP: LET YYY=-Kx*WP: RETURN 
560 IF DI=VAL "8" THEN LET XXX 
=-K*WP: LET YYY=J: RETURN 

566 IF DI=VAL "9" THEN LET XXX 
=-K*WP: LET YYY=K*WP: RETURN 

570 RETURN 

705 LET MEX=(VAL "B"x*YY)+VAL "4 
LET MEY=VAL "8"*(VAL "21"-XX) 
710 FOR NsK TO 3 

715 IF O(N)=0 THEN GO TO 760 
720 PAPER Kz PLOT  INK VAL "8"; 
OVER K5MEX,MEY 
740 LET ALX=(VAL 
"4": LET ALY=VAL 
(N)) 

750 PAPER Kz DRAW  INK VAL 
OVER K5ALX-MEX, ALY-MEY 

755 IF ATME=J THEN RANDOMIZE U 


"8% (N))+VAL 
"au (VAL "21"-Q 


0 = A 


SR VAL "32400" 

760 NEXT Nz IF ATME=K THEN RAN 
DOMIZE USR VAL "32460" 

761 INK VAL "7"z PAPER J 

770 FOR N=K TO 3 

774 1F Q(N)=0 THEN 60 TO 810 
780 PLOT  INK Kj BRIGHT K3MEX,M 
EY 

790 LET ALX=(VAL "8"+*W(N))+VAL 
"4" LET ALY=VAL "B"* (VAL "21"-Q 
(N)) 

800 DRAW  INK K; BRIGHT K;-MEX+ 
ALX, ALY-MEY 

810 NEXT Na 1F ATME=K THEN GOD 
TO VAL "2010" 


! 
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820 LET al=al-q(x,y,K): 
en—-INT (g(x», y» k)*RND*h) 
830 LET g(x,y,»k)=j: RANDOMIZE U 
SR VAL "32520" 

850 PRINT AT XX,YY;3 PAPER K; 
IGHT K3"w"":z GO TO VAL "225" 
900 INPUT "DIRECCION?"5DI:z IF D 
I>VAL "9" OR DI<K THEN GO TO VA 
L "» 900 ”: 

910 LET TOP=TOP-K: LET Ti=XX: L 


LET en= 


BR 


ET T2=YY: IF TOP<J THEN RETURN 
915 PRINT AT T1,T2;3 PAPER K3 BR 
IGHT Kz" " 


920 LET Ti=T1+(DI=1 OR DI=2 OR 
DI=3)-(DI=9 OR DI=8 OR DI=7): LE 
T T2=12+(DI=9 OR DI=6 OR DI=3)-( 
DI=1 OR DI=4 OR DI=7) 

930 FOR N=K TO 3: IF T1=Q(N) AN 
D T2=W(N) THEN LET G(X,Y,1)=G(X 
,Y,1)-Kz LET Q(N)=0: LET W(N)=0: 

RANDOMIZE USR VAL "32520" 

940 NEXT N 

950 FOR N=K TO G(X,Y,3): IF Ti= 
T(N) AND T2=Y(N) THEN LET G(X,Y 
,3)=6(X,Y,3)-K: PRINT AT 711,712; 


FLASH K3 INK VAL "6"3"hk"*z RANDO 
MIZE USR VAL "32520": GO TO VAL 
"920" 

960 NEXT N 

970 PRINT AT T1,T2;5 PAPER K3 IN 
K VAL "2"5 BRIGHT K3"." 

980 IF Ti1<VAL "4" OR TI>VAL "19 
" OR T2<K+K OR T2>VAL "14" THEN 
GO TO VAL "990" 

985 GO TO VAL "915" 

990 PRINT AT T1,T23 INK K5 BRIG 
HT K3"BI": RETURN 

1099 RETURN 

1110 INPUT "ENERGIA DE LOS ESCUD 
OS (1-2000)"3STRE 

1120 IF STRE>VAL "2000" OR STRE< 
J THEN GO TO VAL "1110" 

1130 LET EN=EN-STRE+SH: LET SH=S 


TRE 
1150 PRINT AT K,VAL "25"3EN3"  " 


¡AT K+K,VAL "26"3SH3" "z("  " AN 
D SH<H)5AT 3,VAL "253"5AL3" "¿AT 
A, VAL "23"5T1;5 nu .” 

11650 RETURN 

1400 CLS : PRINT AT K,D;5 PAPER V 
AL "2"3 FLASH K3" DAMOS  " 

1401 PRINT 

1410 IF EN<=VAL "1000" THEN PRI 
NT " MOTORES= PARADOS" 

1420 IF EN>VAL "1000" THEN PRIN 
T > MOTORES= FUNCIONAN" 


1430 IF SH<=VAL "500" THEN PRIN 

T "**x**xESCUDOS= PARADOS" 

1440 IF SH>VAL "500" THEN PRINT 
e” ESCUDOS= FUNCIONAN" 


1450 PRINT " MARCIANOS VIVOS=" 
¿AL 

1460 PRINT " TIEMPO RESTANTE=" 
3TIE-TI 

1470 PRINT " TORPEDOS LISTOS=" 
3 TOP 

1480 PRINT : PRINT " 7809" 
1490 PRINT " 4 vw 6" 

1500 PRINT " 123" 

1510 PRINT AT VAL "17",K3"PULSA 


UNA TECLA PARA CONTINUAR" 


1520 PAUSE J: PAUSE J:z CLS : GO 
TO VAL "9999" 

1999 RETURN 

2000 LET ATME=K: GO TO VAL "700" 


2010 LET ATME=J: 
RND*VAL "550"): 
ND* (H*VAL 


LET SH=SH-INT ( 
LET EN=EN-INT (R 
"2"))-H: RANDOMIZE USR 

VAL "32520": FOR N=K TO G(X,Y,K 
): PRINT AT Q(N),W(N)5 PAPER K5 
INK VAL "3"3 BRIGHT K3"to"2 1F S 
H<J THEN  LET EN=EN+SH: LET SH=J 
2011 NEXT N 
2020 GO TO VAL "230" 

3000 PRINT AT K,K3 FLASH K3" PUL 
SA UNA TECLA ": LET XX=D2 LET YY 
=VAL "8": PRINT AT XX,YY3 PAPER 
K3 BRIGHT K3" vw" 
3001 LET MEX=(VAL 

": LET MEY=VAL 
3010 PAPER K: 
"32490": 


"B"xYY)+VAL "4 
"8x (VAL "21"-XX) 
RANDOMIZE USR VAL 
FOR N=D+VAL "4" TO VAL 
"2" STEP VAL "-2": CIRCLE INK Y 
AL "8"5 OVER K5MEX-VAL "2",MEY+V 
AL "3",Nz NEXT Nz FOR N=D+VAL "6 
" TO VAL "2" STEP VAL "-2": CIRC 
LE  INK VAL "8"; OVER K3MEX-VAL 
"2",MEY+VAL "3",N: NEXT Nz RANDO 
MIZE USR VAL "32520": PAUSE J:z R 
UN 
7000 IF XX+XXX<VAL 
XX=VAL "20": 
AL "8000" 
7010 IF XX+XXX>VAL "20" 
T XX=VAL "3": LET X=X+K: 
AL "8000" 
7020 IF YY+YYY>VAL 
T YY=K: LET Y=Y+K: 
00 " 
7030 IF YY+YYY<K THEN LET YY=VA 
L "15": LET Y=Y-K:z GO TO VAL "80 
00 " 


"3" THEN LET 
LET X=X-Kz GO TO Y 


THEN LE 
GO TO Y 


"15" THEN LE 
GO TO VAL "8o 
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7040 RETURN 
8000 FOR N=VAL 
PRINT AT N,Ks5 


“39 TO VAL "20% 
INK K3 BRIGHT K3"mM 
NIN": NEXT ON 


8020 GO TO VAL "200" 
9000 CLS : LET O1=K: LET P1=VAL 
"2% FOR O=K TO VAL "8": FOR P=k 
TO VAL "7": FOR L=k TO VAL "3": 
PRINT AT 01,P15G(0,P,L): LET Pi 


=P1+Kz NEXT L:z LET P1=P1+K: NEXT 
P: LET O1i=01+VAL "2": LET Pi=VA 
L "2": NEXT O 


9010 PRINT AT VAL "18",VAL "2"3" 
ESTAS EN "5X33" "sy 

9020 PLOT 0,0: DRAW 0,175: DRAW 

255,0: DRAW 0,-175: DRAW -255,0: 
CLS 

9030 GO SUB VAL 
AL "9200": GO SUB VAL 
9040 GO TO VAL "250" 

9200 LET ASK=kK: GO SUB 225: 
ASK=J: RETURN 

9510 PRINT AT XX, YY; 
IGHT K3z" vw" 

9520 FOR N=K TO G(X,Y,K):z IF Q(N 
)<>0 OR Q(N)<>0 THEN PRINT AT Q 


"9600": GO SUB Y 
"9510" 


LET 


PAPER K3 BR 


(N),W(N)5 PAPER K3 INK VAL "4"; 
FLASH K3"poj" 

9525 NEXT N 

9530 FOR N=K TO G(X,Y,K+K): PRIN 
T AT E(N),R(N)3 INK VAL "5"3 PAP 
ER K3"6": NEXT N 

9540 FOR N=K TO G(X,Y,3): PRINT 
AT T(N),Y(N)5 PAPER K5 INK VAL " 
6"3"mM"3 NEXT ON 

9550 RETURN 

9610 BORDER J: PAPER J:z INK VAL 
"7": CLS 

9620 PLOT J,J: DRAW J,VAL "175": 


DRAW VAL "255",J:z DRAW J,VAL "- 
175": DRAW VAL "-255",J 

9630 FOR n=VAL "3" TO VAL "20":* 
PRINT AT n,k3 INK k5 BRIGHT k5"M 
EN 
9640 PLOT VAL "7",VAL "7": DRAW 
VAL "121",j 


9650 PLOT VAL "7",VAL "152": 
W VAL "121",j 
9660 PLOT VAL 
j,VAL "145" 

9670 PLOT VAL "128",VAL "7": DRA 


DRA 


"7*,VAL "7": DRAW 


W J,VAL "145",j 

9680 PLOT VAL "135",VAL "12": DR 
AW j,VAL "163" 

9730 PLOT VAL "179",VAL "12": DR 
AW j,VAL "48" 

9740 PLOT VAL "211",VAL "12"2 DR 
AW j,VAL "48" 

9730 PLOT VAL "135",VAL "60": DR 
AW VAL "120",j 

9760 PLOT VAL "135",VAL "44": DR 
AW VAL "120",j 

9770 PLOT VAL "135",VAL "28": DR 


AW VAL "120",j 

9780 PLOT VAL "135",VAL "12": 
AW VAL "120",j 

9790 PRINT AT k,VAL "18"5"ENERGI 
A: 5000" 


DR 


9800 PRINT AT K+K,VAL "18"3"ESCU 
DOS: 2000" 

9810 PRINT AT VAL "3",VAL "18";" 
ALIENS: 0" 

9820 PRINT AT VAL "4",VAL "18";" 
TIEMPO: 0" 

9830 PRINT AT VAL "6",VAL "18"3" 
<COMANDOS >" 

9840 PLOT VAL "135",VAL "131": .D 
RAW VAL "120",J 


9850 PRINT AT VAL "7",VAL "193" 
P=LASERS"53AT VAL "8",VAL "19"3"T 
=TORPEDOS" 

9860 PRINT AT VAL "9",VAL "193" 
S=ESCUDOS"5AT D,VAL "19"3"D=DAFr 
DOS ” 

9870 PRINT AT VAL "11",VAL "19"; 
"R=RECORDS"5AT VAL "12",VAL "19" 
3"N=NAVEGACION"5AT VAL "13",VAL 
"19"3"X=SALIDA" 
9880 RETURN 
9999 GO SUB VAL 
L "solo" 


"9600": GO TO VA 
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11. Otros marcianos 


El juego contiene las instrucciones completas, pero la idea básica es: 

Los marcianos vienen a conquistar la Tierra. ¿No te suena ya de antes? Ya están 
preparados en las toberas de lanzamiento de las naves; cada vez que una tobera esté llena de 
marcianos, uno de ellos caerá; mientras que la tobera no esté llena no caerá ninguno, y en 
esos momentos tienes a los extraterrestres a tu merced. Pero ten en cuenta que los que mates 
dentro de las toberas te darán muy pocos puntos, ya que cuanto más cerca del suelo los 
mates la dificultad será mayor, y la puntuación recibida por ellos también lo será. 


_d 
po] 
N 


Las teclas que dirigen el movimiento de la base son: 


5—Para mover a la izquierda. 
6—Para mover a la derecha. 
1—Para disparar. 


Como el programa, para leer el teclado, usa la instrucción IN en vez de usar la 
instrucción INKEYS$, puedes moverte y disparar a la vez. 

En el juego hay cinco niveles (1-5). El nivel en el que estés sólo influye para la velocidad 
que tienen los marcianos de llenar las toberas; verás que los niveles 2 y 3 son los más 
satisfactorios. 

El programa incluye la lista de las diez mejores puntuaciones. 

La única exigencia que debe reunir tu calificación para poder ser incluida entre las diez 
mejores es que no sea negativa. No te creas que es una tontería; cada vez que un marciano 
llega al suelo pierdes diez puntos. 

La lista de los diez mejores tarda un poco en aparecer, pero merece la pena esperar un 
poco para ver lo bien que queda en la pantalla. 

Mientras estás jugando puedes ir pulsando las teclas de la primera línea (la línea de los 
números), y así puedes ver el funcionamiento de la sentencia IN. Verás que para moverte a la 
derecha puedes usar cualquier tecla del 6 al 0. 


==. RAF TEO FA [) 
[A / 


== ERRAFTICO E 
e IAAF AA E 
FAA] 
oo ERAMF TOO E ue 
l—_ 
EN ds Y A ES CS 


/ 1 REM x** OTROS MARCIANOS x%+* 9 REM xs RESCRIBE PUNTOS ' 
' 2 RANDOMIZE 10 PRINT AT 0,103 INK 63 FLASH | 
' 5 GO SUB 9200: GO SUB 4000: G 13" "3SC3" "2: BEEP .02,30: RE ¡ 
O ¡0 TO 50 TURN 1 O 
! 8 REM 50 GO SUB 5000 ! 


98 REM 
99 REM 
100 LET 


EHEXBUCLE PRINCIPAL 
POS=INT (RND*13)+1: 
S(POS)=5 THEN GO TO 100 

110 FOR I=1 TO SPD+2: PRINT AT 
21,63" ": LET G=G-(IN 63486=238 
OR IN 43486=239)*(G>1)+(IN 61438 
<>255)* (6<30): PRINT AT 21,63 IN 
K 2; 1 di 

120 FOR J=1 TO 3: 


IF 


IF F(J,1)>0 T 


HEN  PRINT AT F(J3,1),F(J,2)53 INK 
Y+23"55"3AT F(, 1)- 1, FU, 233 IN 
K 03" "2 LET FC, 1)=F(J, 1)+1a IF 


F(J,1)=22 THEN LET F(J,1)=0: L 
ET NF=NF+1: BEEP .1,-20: PRINT A 
T 21,F(J,2)-13 INK Jj; FLASH 1;3"+* 
HH": LET ON=ATTR (21,6): LET SC=S 
C-10: GO SUB 10: PRINT AT 21,F(J 
"z IF N>20 THEN GO TO 


130 IF BY=0 THEN (GO TO 250 

140 PRINT AT BY,BX3" ": LET BY= 
BY-1: IF BY<6 THEN LET BY=0: GO 
TO 300 

145 LET N=ATTR (BY,BX): IF N=0 
THEN — PRINT AT BY,BX3 INK 23"3" 
: GO TO 300 

150 IF N>2 AND N<8 THEN BEEP . 
1,5: LET SC=SC+BY: GO SUB 10: PR 
INT AT BY,BX3" ": LET NF=NF+1: L 
ET F(N-2,1)=0: LET BY=0: GO TO 3 
00 

150 IF N=70 THEN BEEP .1,9: LE 
T SC=SC+5: GO SUB 10: LET BY=0: 
PRINT AT 7-S(BX/2-1),BX3" "3: LET 
S(BX/2-1)=S(BX/2- 13711 GO TO 30 
o 

170 LET BY=0 

250 IF IN 43486=238 OR IN 63486 
=254 THEN LET BY=20: LET BX=G 
300 NEXT J: NEXT I 

310 LET S(POS)=S(POS)+1: PRINT 
AT 7-S(POS),POS*2+2; BRIGHT 15 I 
NK 63"55": BEEP .1,15: IF S(POS) 
<5 OR NF=0 THEN GO TO 100 

314 LET I=1 

315 IF F(1,1)>0 THEN LET I=1+1 
: GO TO 315 
320 BEEP .1,0: 
T F(1,2)=P0S*2+2: 


LET F(I,1)=9: LE 
LET NF=NF-13 P 


RINT AT 2,POS*2+23" "2 LET S(POS 
)=S(POS)-1: GO TO 100 
398 REM 


399 REM xxx GAME OVER 
400 DIM b$(704): PRINT AT 21i,g5 
INK 25 PAPER 63 FLASH 1353" all ms 


134 


FOR i=7 TO O STEP 
I: BORDER I: PRINT AT 0,05 OVER 
15 PAPER 153 INK 83B$%$: NEXT l: BE 
EP 2,-40: GO SUB 9000: GO TO 50 
4998 REM 
4999 REM *x***INICIALIZACION 


1: BEEP .05, 


5000 INK O: PAPER O: BORDER O: C 
LS 3 INK 7: PRINT ,,"” M"5: BR 
IGHT 1: FOR I=1 TO 13: PRINT IN 
K 45"30"5: NEXT Il: PRINT : FOR 
I=i1 TO 5: PRINT " "32 FOR J=1 T 
O 14: PRINT " M"5: NEXT J: PRIN 
T 2 NEXT Il: BRIGHT Oz INK O 
5010 DIM S(13): DIM F(9,2): LET 
SC=0: LET G=16: LET BX=0: LET BY 
=0: LET NF=5 

5020 PRINT $153" OTROS MAR 
CIANOS"; 


5030 PRINT $15?” " Los marcianos 

estan reunidos en"; 

5040 PRINT $15” "las trampillas d 

e lanzamiento de"j 

5050 PRINT $13” "la nave dispuest 

os a realizar la"; 

5070 PRINT 415”? "colonizacion de 
la tierra"; 

5080 PRINT 4$15””" Cada vez que u 

ma de las trampi- 

5085 PRINT 4$13"llas se llena de 

marcianos," 

5087 PRINT $1;"unmo cae y se choc 
a contra el suelo." 

5089 PAUSE O: INPUT "PULSA ENTER 
PARA MAS DATOS"; LINE A$ 

5090 PRINT 415” " Puedes destruir 
al marciano que"; 

5100 PRINT $15” "cae en cualquier 
momento, para"; 

S110 PRINT $15” "ello mueves la b 
ase usando las”; 

5120 PRINT $15”? "teclas :"”5 

5130 PRINT $H13*5TAB 93"x* 5 --- 
Izquierda."?”; 

5140 PRINT $13” 5TAB 9; "++. 
Derecha."?”5 

5150 PRINT $153” 5TAB 95"x*%* 1 --- 
Fuego." 

5160 PRINT — INK 75 FLASH 13AT O, 
O3"ELIGE NIVEL DE VELOCIDAD (1--5 
y" 

5170 INPUT SPD 

5180 IF SPD<1 OR SPD>S THEN GOD 
TO 5170 

5190 LET A$="MARCIANOS" 

5200 FOR i=1 TO 14: PRINT AT i+2 
»05 INK 23a$(I)5AT 1+2,313A$(1): 
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NEXT 1 
5210 RETURN 

5998 REM 

5999 REM *%*x* GRAFICOS DEFINIDOS 

6000 RESTORE 6010: FOR I=0 TO 39 
: READ Nz POKE USR ".M+I,Nz NEX 

T Il: RETURN 

£010 DATA 24,24,24,60,60,255, 255 
,255 

£020 DATA 60,60,60,60,60,60,60,2 
55 

£030 DATA 0,231,66,126,82,255,25 
5,102 

£040 DATA 48,24,12,24,48,24,12,2 
4 

£050 DATA 255,255,24,60,102,195, 


195,0 
7000 PRINT INK 7;IN 63486, IN 61 
438: GO TO 7000 
8998 REM 
8999 REM xxx LOS 10 MEJORES 
9000 CLS : INK 6: PRINT AT 2,05" 
O O 
9010 PRINT " m0 mu 
” mu 
9020 PRINT " mo MA 
A 
9030 PRINT " 2 Él 
mu" 
9040 PRINT " MIR 
FOSO 
NC 
SE BI MO 


AS CN 
A HA _ 

9065 PRINT "0 0 EAN ARA BA 
A A 

9066 PRINT " Hi A] 5 

CC mm” 

9067 PRINT "pil BEN AE 

A A 

9068 PRINT " A 

9069 PRINT ” PRADA 


9070 LET I=10 


9080 IF 1>0 THEN IF Z(1,1)<SC T 


HEN —LET Z(1+1,1)=Z(1,1)2 LET Z( 
1+1,2)=Z(1,2)%:1 LET Z$(1I+1)=Z$(1) 
2 LET I=I-1: GO TO 9080 

9090 LET Z(1+1,1)=SC8 LET Z(I+i, 
2)=SPD: IF I1I<10 THEN INPUT "AHO 
RA ESTAS ENTRE LOS MEJORES  ,TEC 
LEA TUS INICIALES"3Z$(I+1) 

9095 PRINT — INK 53"No. PUNT: JUG 
ADOR NIVEL" 


9100 FOR J=1 TO 10: PRINT JjTAB 
253"="3 INK 75Z(J,1)5TAB 103 INK 
45Z2$(J)5 INK 7532Z(J,2)2 NEXT J 
9110 IF I<10 THEN DIM B$(32): P 
RINT AT 1+8,05 OVER 13 FLASH 153B 
$ 

9130 RETURN 
9190 INPUT 
IF I$="N" 


"OTRO JUEGO? (S/N) "5 
OR I$="n" THEN ST 


9200 DIM Z (11,2): 
RETURN 


DIM Z$(11,10): 
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PARTE CUARTA 


JUEGOS 
DE TABLERO 


1. Mandala 


En este juego, parecido a las DAMAS, tú llevas las piezas de forma circular (las fichas de 
forma parecida a las de las damas), y juegas contra el ordenador, con fichas azules (fichas 
parecidas a los caballos de ajedrez). 

Te mueves en diagonal, como en las DAMAS, y te comes una ficha contraria saltando 
sobre ella a un cuadro vacio. No valen los saltos múltiples, es decir, sólo se puede comer una 
ficha por turno. Puedes mover en cualquier dirección, hacia adelante o hacia atrás, pero 
siempre siguiendo la diagonal. 

El dibujo, hecho al empezar una partida, muestra cómo son el tablero y las fichas. 
También puedes ver que al empezar el juego las fichas están colocadas en las esquinas del 
tablero, no como en las DAMAS. 


a 
Ñ Ad 


a 
¡US 


EMTRE AILSARA CE LA FOoRrHnAa. cidad. 


mb 


38 


Vence el que antes consiga comer siete de las fichas del contrario. El ordenador se 
rendirá, y dará la partida por perdida, si considera que le llevas tanta ventaja que no tiene 
nada que hacer. 

Escribí el programa con la peculiaridad de que después de cada movimiento sólo escribe 
las fichas que se han movido, en vez de reescribir todo el tablero otra vez. Esto quiere decir 
que el juego es muy rápido. Verás que, al ir desarrollándose la partida, la velocidad del 
ordenador aumenta. 

También debes darte cuenta que las piezas están formadas por cuatro células diferentes. 
Esto hace que el tablero ocupe casi toda la pantalla, y permite que las piezas sean más 
elaboradas que si estuvieran hechas sólo de un U.D.G. Si no te gustan las fichas que he 
usado, puedes definirte las tuyas propias. 


PH a A 
A Y L 
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Y) 


Mueves tus fichas introduciendo un número de cuatro cifras. Este número está forma- 
do por: 

Las dos primeras cifras son las de posición actual. Primero das la coordenada X (ésta 
viene indicada por la línea horizontal) y después das la coordenada Y (ésta viene indicada 
por la línea vertical, e indica la altura). 

Las dos cifras siguientes son las de la casilla a la que quieres moverte. Las das de la 
misma forma que antes, primero la coordenada X (distancia horizontal), y después la 
coordenada Y (distancia vertical). 
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ES > E A 
all ==" GRAFICO 


(mM 7117 SRAEICS 
eo RAFI 


3 "3COMP 


REM *% MANDALA x*x 


20 60 SUB 9000 6150 LET F=INT ((Z+Y)/10): LET G 
30 G0 SUB 8000 =Z+Y-10xF 

40 GO SUB 7000 6170 PRINT AT 2%G,2xF5" "sAaT 2x 1 O 
50 GO SUB £000 Gr1,2xF3" " 


6172 LET F=INT ((Z2+2xY)/10): LET 

G=27+2x*Y-10x*F 

6174 REM AB Y CB SEGUIDO 

6176 PRINT — INK 13AT rl Pa 
ZXJAT 2xG+1,2x*F3"" 


60 IF HUM=7 THEN PRINT AT 19, 
3 INK 23 FLASH 13"TU GANAS": ST 
oP 
70 IF COMP=7 THEN FRINT AT 19 
305 INK 23 FLASH 1;"YO GANO” 
80 GO TO 40 
800 FOR 2=8 TO 1 STEP -1 
6000 FOR Z=88 TO 11 STEF -1 
6020 IF A(Z)=C THEN GO TO 6050 
L£03O NEXT Z 
6040 60 TO 6200 
6050 LET Y=-11 
6055 IF Z+Y>88 OR Z+Y<11 OR Z+2% 
Y>88 OR 2Z+2x*Y<11 THEN GOD TO 607 
0 
6060 IF A(Z+Y)=H AND A(Z+2xY)=E 
THEN GO TO 6100 
6070 LET Y=-9x*(Y=-11)+9x* (Y=-9)+1 
Ox (Y=11)+(Y=100) 
6080 IF Y<>0 THEN GO TO 6055 
6083 NEXT Z 
6090 6D TO 6200 


6180 LET F=INT (2/10): LET G=Z-1 
OXF 

6184 PRINT AT 2xXG,2xF;"  "¿AT_2x 
G+1,2xF3" " id 
6190 RETURN 

£200 FOR Z=1 TO 200 

6220 LET K=INT (RND*78)+11 

6230 IF A(K)=C THEN GO TO £240 
£240 NEXT Z 

£250 GO TO £500 

£260 LET Y=-11 

£270 IF K+Y<11 OR K+Y>88 THEN G 
O TO 6220 

6280 IF A(K+Y)=E THEN GO TO 433 
O 

6290 LET Y=-9*(Y=-11)+9x* (Y=-9)+1 


O 6100 LET A(Z)=E: LET A(Z+Y)=E: L | Ox(Y=11)+(Y=100) O 
ET A(Z+2*Y)=C: LET COMP=COMP+1 £300 IF Yí2>0 THEN GO TO 6270 
n 6140 PRINT AT 2,223 INK 13"COMP. 6310 NEXT Z ás 


O 0 0 


O 


6320 GO TO 6500 

6330 IF K+2xY>88 OR K+2x*Y>11 THE 
N (GO TO 4400 

6340 IF A(K+2xY)=H THEN GO TO 6 
240 

6350 IF K-2xY<11 OR K-2x*Y>88 THE 
N GD TO 6400 

67360 IF A(K-2x*Y)=H THEN GO TO 6 
240 

6400 LET A(K+Y)=C:x 
ET F=INT ((K+Y)/10):2 
OXF 

6430 REM AB Y CD EN LA SIGUIENTE 


LET A(K)=E: L 
LET G=K+Y-1 


£440 PRINT — INK 1307 2%G,2%XF;3" 
UAT 2x6+1,2xF1" 

6450 LET F=INT (K/10): LET G=K-1 

OxF 

6470 PRINT AT 2xG,2xF3" "¡AT 2% 

GHZ 

6480 RETURN 

6500 FOR G=1 TO 200 

6510 LET K=INT (RND*78)+11 

£520 IF A(K)=C THEN GO TO 6600 

6530 NEXT G 

6540 PRINT AT 0,03 FLASH 13 INK 

23" ME RINDO.+..": STOP 


6600 IF A(K-11)=E THEN LET Y=-1 
1: GO TO 4400 

6620 IF A(K-9)=E THEN LET 
GO TO 4400 

6640 GOD TO 4540 

7000 INPUT FLASH 13 INK 15;"ENTR 
E JUGADA DE LA FORMA /3344/"5A$ 
7010 IF As="S" THEN STOP 

7030 IF LEN A$<>4 THEN GO TO 7O 

00 

7050 LET A1=VAL A$(1): 
L A$(2): LET B1=VAL A$(3): 
2=VAL A$(4) 

7070 LET A(10xB1+B2)=H: 
*A1+42)=E 

7080 REM EF Y GH EN LA SIGUIENTE 

7090 PRINT — INK 23AT 2xB2,2xB15" 
¿AT 2xAB241,2xAB13 "00 

7100 PRINT AT 2x*xA2,2*A15" 

2xA2+1,2*A13"  " 

7110 IF ABS (A1-B1)=1 THEN RETU 

RN 

7120 LET HUM=HUM+1 

7125 LET A((10x*xB1+B2*10+41+A2) /2 
)=E 

7130 PRINT AT a2+b2,a1+b1;" 
T a2+b2+1,a1+b13"  " 
7140 PRINT AT 0,22; 
oz "3hum 


Y=-E: 


LET A2=VA 
LET B 


LET A(10 


“3 AT 


”24 


INK 35"Human 


7150 RETURN 
8000 FOR z=8 TO 1 STEP -1 
8060 FOR x=1 TO 8 


8070 IF a(10*z4+x)=h THEN FPRINT 


AT 2ex,2%23 INK 23" 
LAZO o 

8080 IF A(10xZ+X)=C THEN PRINT 
AT 2%X,2%Z3 INK 15% AT 2*X+1,2 
AZ ar 

8090 IF A(10%7+X)=B THEN PRINT 
AT 2%X,2%*Z3 INK S5"0"3AT 2*X+1 
¿2875 "ER" 

8110 NEXT X:z NEXT Z 

8130 RETURN 

9000 DIM A(100) 

9010 LET H$="111314222431334251" 
9020 LET C$="888677688475665748" 
9030 LET B$="1214161821232527323 


43638414345475254565861636367727 
4767881838587" 

9040 LET E$="82736445546372817263 
744536271" 


9050 FOR Z=1 TO 100: LET A(Z)=9: 
NEXT Z 

9080 LET H=104: LET C=99: LET B= 
143: LET E=32 


9100 FOR Z=1 TO 9: LET A(VAL H$( 
TO 2))=H: LET A(VAL C$( TO 2))= 
c 


9110 LET H$=H$(3 TO ): LET C$=C0$ 
(3 TO ): NEXT Z 

9140 FOR z=1 TO 17 

9150 FOR Z=1 TO 32: LET A(VAL B+$ 


( TO 2)»=b: LET b$=b$(3 TO ): NE 
XT Z 
9190 FOR Z=1 TO 14: LET A(VAL ES 
( TO 2))=e: LET E$=E$(3 TO ): NE 
XT Z 
9200 LET A(15)=H: LET COMF=0: LE 
T HUM=0 
9210 INVERSE 1 
9400 PRINT AT 0,03" 12345 
678 "3AT 1,13" 

"s5AT 18,03" 

"58T 19,03" 112345678 


9410 FOR Z=1 TO 17 
9420 PRINT AT 7,13" "3AT 7,183" 
ul 


9430 IF 2x*INT (Z/2)=Z THEN PRIN 
T AT Z2,03Z/25AT 2,19532/2 

9440 IF 2*INT (Z/2)<>Z THEN PRI 
NT AT Z,03" "3AaT 2,193" " 

9450 NEXT Z 

9460 INVERSE O 

9500 FOR X=1 TO 8 
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9505 READ As 

9510 FOR Y=0 TO 7 

9520 READ Z 

9530 POKE USR A$+Y,Z 

9540 NEXT Y 

9550 NEXT X 

9540 DATA "A",0,0,0,0,1,3,7,15 
9570 DATA "B",0,14,96,240,120,24 
0,224,224 

9580 DATA "C",30,28,0,0,1,1,3,0 


93590 


142 


DATA 


"p",112,112,240,208, 20 


8,216,248,0 

9600 DATA "E",0,7,15,31,62,124,1 
20,113 

9610 DATA "F",0,224,240,248,124, 
62,30,142 

9620 DATA "G",113,120,124,62,31, 
15,750 

9630 DATA "H",142,30,62, 124,248, 
240,224,0 

9990 RETURN 


O 


2. Damas 


Reta al ordenador a una partida de DAMAS usando este veloz programa escrito por 
Graham Charlton. 

Debes tener cuidado porque el programa, al ser inglés, usa las reglas de juego inglesas, 
por eso a veces te puede parecer que se equivoca, pero no es así. Un buen ejercicio seria que 
modificaras el programa para que en vez de basarse en esas reglas siguiera otras. También 
debes asegurarte que estás trabajando en mayúsculas. 
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Después que te hayas comido una ficha del ordenador, él preguntará si puedes comer 
más; de esta forma puedes hacer capturas múltiples. Cuando te lo pregunte contesta “S” si 
puedes comerte otra ficha, y pulsa cualquier otra tecla si no puedes. El ordenador hará sus 
capturas múltiples automáticamente. El juego del ordenador no se puede decir que sea muy 


bueno, pero por lo menos es entretenido. 


1 REM e DAMAS +%e 


10 GO TO 4000 
100 PRINT AT 6,11; 


" THEN GO TO 2170 
2120 FOR Z=1+2x*(Y$(D)="H") TO 4 
2130 LET M=X(Z) 


' I 
' J 
' ' 
| 
l 
e ¡ 110 FOR A=1 TO 91 STEP 10 2140 IF YS(D-M)<>"C" AND YécD-m | O 
' 120 PRINT TAB 115 PAPER 13 INK <>"0" THEN GO TO 21460 | 
O !: 73A$(A TO A+9) 2150 IF Y$(D-2x*M)=" " THEN GOTO 
130 NEXT A o 2220 
o 140 RETURN 2160 NEXT Z Lo 
¡200 FOR B=1 TO 12 2170 NEXT A 
' 1000 GO SUB 100 2180 LET As=Y$ 
O |! 1010 LET 0=0 2190 GO TO 2320 ¡O 
; 1020 FOR B=1 TO 12 2220 NEXT X 
O | 1030 LET C=B(B) 2230 NEXT B Lo 
1 1040 IF A$(C)<>"C" AND A$(C)<>"0 | 2240 FOR B=1 TO 12 
"THEN GO TO 1200 2250 LET C=B(B) : 
O | 1050 FOR X=1+2*(A$(C)="C") TO 4 2260 IF A$(C)<>"C" AND A$(CI<>"0 | O 
¡ 1060 LET N=X(X) “ THEN GO TO 2360 
O ! 1070 IF A$(C+N)<>"H" AND A$(C+N) 2270 FOR X=1+2x*(A4$(C)="C") TD 4 10 
1 <>"K" THEN GO TO 1180 2280 LET N=X(X) 
o | 1080 IF AS(C+24N)<>" " THEN GO 2290 IF A$(C+N)<>" " THEN GO TO |! 
' TO 1180 2350 yO 
1 1090 LET A$(C+2*M)=A$ (0) 2300 LET A$S(C+N)=A$ (0) 
O | 1100 LET AS$(C)=" " 2310 LET A$(C)=" " O 
' 1110 LET A$S(C+ND=" " 2320 LET B(B)=C+N | 
O | 1120 LET B(B)=C+2*N IF C+N>80 THEN LET AS(C+N) ; 
| 1130 LET C=C+2x*N = ! 
| 1140 IF C>80 THEN 60 TO 2990 2340 GO TO 3000 
O | 1150 GO SUB 100 2350 NEXT X o) 
¡; 1160 LET Q=1 2360 NEXT B 
O | 1170 GO TO 1050 2370 PRINT AT 17,1253"TU GANAS" ro 
¡ 1180 NEXT X 2380 STOP 
' 4190 IF Q=1 THEN GO TO 3010 2990 LET A$S(C)="0" 
O 1 1200 NEXT B 3000 GO SUB 100 O 
! 2000 FOR B=1 TO 12 3010 INPUT "DESDE ?"3G$ 
O | 2010 LET C=B(B) 3015 IF G$="0" THEN STOP o) 
| 2020 IF A$(C)<>"C" AND A$(C)<>"D | 3020 INPUT "A 2"5H$ 
o |” THEN_ GO TO 2230 3025 IF LEN G$<>2 OR LEN H$<>2 T |! 
| 2030 FOR X=1+2x*(A$(C)="C") TO 4 | HEN GO TO 3010 O 
1 2040 LET N=X(X) LET A=2: LET B=32 LET C=4: | 
O | 2050 IF A$(C+N)><>" " THEN GO TO : 
| 2220 3040 LET E=ó6: LET F=7: LET G=8: 1 
O | 2060 LET Y$=A$ LET H=9 O 
! 2070 LET YS(C+N)=Y$S(C) 3050 LET I=90-10*VAL G$(2)+VAL G | 
2080 LET Y$(C)=" " $(1) 
O ; 2090 FOR A=1 TO 12 3060 LET J=90-10*VAL H$(2)+VAL H 1 O 
| 2100 LET D=C(A) $(1) 
O | 2110 IF Y$(D)<>"H" AND Y$(D)<>"K | 3070 IF 1<12 OR 1>89 THEN 60 TO ! A 


3010 
3080 IF JX<12 OR J>89 THEN GO TO 
3010 
3090 IF A$(1)<>"H" AND A$(I2)<>"K 
" THEN GO TO 3010 
3100 IF A$(J)<>" " THEN GO TO 3 
010 
3110 LET A$(J)=A$(1) 
3120 FOR A=1 TO 12 
3130 IF C(A)=1 THEN LET C(A)=J 
3140 NEXT A 
3150 IF J<20 THEN LET A$(J)="k" 
3160 LET As$tI)=" " 
3170 IF ABS (I-J)<12 THEN GO TO 
1000 
3180 LET A$((1I+J)/2)=" " 
3190 GO SUB 100 
3200 INPUT "PUEDES COMER OTRA VE 
22 "328 
3220 IF Z$(1)="s" OR z$(1)="S" T 
HEN GO TO 3010 
325350 GO TO 1010 
4000 LET A$="*tabcdefghHB4tiC 
87 Citi CICR 6 HC LC 


6 01 AS HEAR HH ZA 
HAHAHA 1 ttabedefghkt": REM 
abcdefy y h tienen que estar en 
minusculas 

DIM B(12): 


DIM C(12)1 DIM X 


4020 FOR B=1 TO 12 

4030 READ A 

4040 LET B(B)=A 

4050 LET C(B)=101-A 

4060 NEXT B 

4070 FOR X=1 TO 4 

4080 READ A 

4090 LET X(X)=A 

4100 NEXT X 

4110 BORDER O: PAPER 6: CLS 

4120 INPUT "QUIERES EMPEZAR?"3Z% 
IF Z2$(1)="Y" THEN GO TO 30 


4140 6D TO 1000 
5000 DATA 28,24,22,26,33,37,39,3 
5,19,15,17,13 

5010 DATA -11,9,9,11 
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3. Cinco en raya 


Ahora el juego consiste en conseguir poner cinco fichas en raya. 
Se juega en un tablero de ocho por ocho casillas; tus fichas son unas “H” invertidas, y 
las del ordenador son unas “C”, también invertidas. 
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El ganador del juego es el que antes consiga tener una línea de cinco de sus fichas. Este 
juego tiene tres formas de acabar: tú vences al ordenador (línea 640), el ordenador te vence a 
ti (línea 1140), o el ordenador se rinde y da la partida por perdida, sin que nadie haya 
conseguido cinco en raya (esto sólo ocurrirá en muy raras ocasiones, fíjate en las líneas 950 y 
975). 

Al empezar el juego puedes elegir entre mover primero o segundo. 

Indicas dónde quieres poner la ficha con dos números, el primero es la coordenada Y 
(viene dada por las líneas verticales que hay en los lados del tablero), y el segundo número es 
la coordenada X (viene dada por las lineas horizontales que hay en la parte superior e 
inferior del tablero). Después de teclear los dos números das al ENTER y jugará la máquina. 

Aunque el ordenador es muy lento jugando, lo hace muy bien, así que si los anteriores 
juegos te han parecido fáciles, ¿por qué no pruebas éste? 


' 1 REM %%* CINCO EN RAYA +%%e 610 IF K>L THEN LET L=k ; 10) 
¡ 20 GO SUB 1180 630 NEXT X ; 

l 30 GO SUB 230 £40 IF L>3 THEN PRINT AT 0,05 
O' 60 GO SUB 420 FLASH 13 INK 23" GANASTE ": STOP : O 
¡70 GO SUB 230 Í 
0) A 80 GO SUB 540 650 LET T=1 O 
90 GO SUB 230 660 IF T<>2 THEN LET Z=C 
' 100 IF 1>3 THEN PRINT AT 0,05 670 1F T=2 THEN LET Z=H ' 

O INK 23 FLASH 13"YO GANO"s* STOP 680 LET G=0: LET H1=0: LET L=0  : O 
; 110 GO TO 60 710 FOR A=12 TOD 89: LET M=0: IF ; 

0) 140 LET E=A A(A)<>46 THEN 60 TO 900 ME») 
' 145 LET E=E+N: 1F A(E)<>Z THEN 740 FOR X=1 TO 4: LET K=0: LET ! 
RETURN N=X(X): GO SUB 140 ; 

O | 150 LET K=K+1: GO TO 145 780 LET N=-N: 60 SUB 140 ¡O 
230 BEEP .5,RND*20: PRINT AT 5, 800 IF K>L THEN LET Hi=0:% LET 
O 1103 INK 43"12345678" L=k o) 
240 FOR A=1 TO 8: PRINT TAB 85 810 IF L<>kK THEN GOD TO 840 l 
oi PE 4109" 820 IF T=1 AND L<4 OR (T=2 DR T | y 
i 270 FOR B=2 TO 9: LET M=A(Ax*10+ =3) AND L<2 THEN 60 TO 860 ! 
| 39 850 LET M=M+1 
O | 280 IF M=C THEN PRINT  INK 2; 860 NEXT X a O 
¡ INVERSE 15"C"3 870 IF M<=H1 THEN GO TO 900 7 
O 1.290 IF M=H THEN PRINT  INK 15 880 LET Hi=M: LET G=A o 
; INVERSE 15"H"5 900 NEXT A ! 

¡ 300 IF M=46 THEN PRINT "."; 910 IF H1i<>0 THEN GO TO 980 ! 

O | 310 NEXT Bz FPRINT " "3 INK 4343 920 LET T=T+1: IF T<>4 THEN 60 ¡O 
; NEXT A TO 660 ¡ 

O 320 PRINT TAB 103 INK 435"123456 940 LET A=1 h o 
1 78" 950 LET G=INT (RND*77)+13 h 
360 RETURN 960 IF A(G)=446 THEN GO TO 980  ¡ 

O ! 420 INPUT G: LET G=G+1: IF G< 12 970 LET A=A+1: IF AX100 THEN 6; O 
OR G>89 OR A(G)<>46 THEN 60 TO D TO 950 . 
O! 420 973 PRINT AT 0,05 FLASH 13 INK ¡O 
!- 480 LET Z=H: LET A(G)=Z: RETURN 253" ME RINDO ": STOP ' 

O ! 980 LET A(G)=C: RETURN j o 
540 LET A=G: LET L=0: FOR X=1 1030 LET Z=C2 LET A=G: LET L=0 1 
¡TO 4: LET K=0: LET N=X (X) 1060 FOR X=1 TO 4: LET K=0: LET  ¡ 

O | 590 GO SUB 140 N=X (X) 6 
! 600 LET N=-N: GO SUB 140 1090 GO SUB 140 ] 
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1100 LET N=-N:z GO SUB 140 E” 


l ! 

O | 1120 IF K>L THEN LET L=k 1310 PRINT — INK 83 "ENTER “s“ sI |0Ó 
| 1130 NEXT X QUIERES EMPEZAR, “N* SI NO"z PAUS 

O ' 1140 IF L>3 THEN PRINT AT 0,0; EO ¡O 
' FLASH 15 INK 2;"YO GANE! !"x STOP | 1340 IF INKEY$<>"" THEN GO TO 1 
! 340 
| 1150 RETURN 1350 LET A$=INKEYS: IF A$<>"S" A! 9 
' 1180 DIM A(100): DIM X(4) ND A$<>"N" AND INKEY$<>"S" AND I 

O | 1190 RANDOMIZE NKEY$<>"N" THEN GO TO 1350 O 
; 1210 FOR A=1 TO 8: FOR B=2 TO 9: | 1380 CLS | 
A(AX*10+B)=46: NEXT B: NEXT 1390 IF A$="S" THEN RETURN O 
1400 FOR J=1 TO INT (RNDx*12)+1 
FOR Q=1 TO 4: READ X(Q): NE | 1410 READ Z:z NEXT J 
1440 LET A(Z)=C: RETURN O 
; 1290 DATA 1,9,10,11 1450 DATA 34,35,44,46,47,54,55,5 |! 
' 1300 LET H=CODE "H"z LET C=CODE | 46,57,66 LO 
I ' 
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4. Cuatro en raya 


Como podrás suponer por el título, el objeto del juego es conseguir cuatro fichas en 
raya. El programa usa las reglas estándar de juego, por eso no tendrás ningún problema al 
jugar. 

Puedes conseguir las cuatro fichas en raya siguiendo cualquier dirección (horizontal, 
vertical o diagonal). 

Como puedes ver en los gráficos definidos, el programa los usa muy bien, lo que hace 
que la presentación de este programa sea muy buena. 


A e e e o e o e a + 


«lo cen BRAFICO AB LL 
e BRA IEA E 


00000 oco0 0000000 


O 


O 


N. del T.: El programa juega bien, pero a veces, cuando 
horizontal, el ordenador no las cuenta 


5 REM *x CUATRO EN RAYA ex 

10 GO SUB 2000: GO SUB 3000 

15 DATA 7,15,31,67,127,255, 2535 
,255,224,240,248,252,254,235, 255 
1,255, 255,255, 255 

17 DATA 127,63,31,15,7,255,255 
,255, 254, 252,248,240,224,128,64, 
32 

19 DATA 16,8,4,2,1,1,2,4,8,16, 
32,64,128 

25 RESTORE : FOR N=0 TO 47: RE 
AD A: POKE USR "4i"+N,Az NEXT ON 

30 REM GRAFICOS DEFINIDOS 

50 DIM M(8,9): FOR N=1 TO 9: L 
ET M(1,N)=3: LET M(8,N)=3: NEXT 
N 


60 LET mi=0: LET TU=0 
PRINT AT 2, 
INK 


100 CLS : BORDER 0: 
"z FOR N=1 TO 6: PRINT 


E 
P 


o 


110 PAUSE 20: FOR N TO 2: FRI 

NT” PAFER S3AT N,Oj" 
"3 NEXT N 

115 PAUSE 20: FOR N=3 TO 21: PR 
INT AT N,O; PAPER 53" "2 NEX 
TN 

120 PAUSE 20: FOR N=3 TO 21: FR 
INT AT N,275 PAPER 33" "z NE 
XT ON 

125 PAUSE 50: BEEP .5,-20: PRIN 
T AT 0,03 INK 05 "PULSA UNA TECLA 


PAUSE O 
PAPER 33" 
": BEEP 


PARA EMPEZAR": 
130 PRINT AT 0,05 


23,29 

134 REM INICIO ALEATORIO 

135 LET GO=-1: LET R=RND*10+1: 
IF R>S THEN LET GO=1 


137 LET Z=0: LET D=6: LET FOUND 
=0: LET MOVE=0 
140 FOR N=1 TO 900: NEXT N 


249 REM BUCLE PRINCIPAL 

250 LET MOVE=MOVE+1: LET GO=G0%* 
-1: IF MOVE>42 THEN 60 TO 1100 
252 IF GO=1 THEN GO TO 300 


150 


255 PRINT AT 0,14; BRIGHT 15 PA 
PER 63 INK 153"MI JUGADA": BEEP 
25,21 

2597 PAUSE 100 

260 PRINT AT 0,14; BRIGHT 0; PA 
PER 53" ñ 


265 LET SF=1: 
266 IF MOVE<5 
268 GO SUB 450 
270 LET Z=1: GO SUB 450 

273 LET Z=2: IF FOUND=1 THEN L 
ET M(Y1,X1)=0 

274 1F FOUND=1 THEN GO TO 850 
275 IF X3<>0 THEN GO TO 870 
276 LET W=INT (RND*7)+2: IF M(2 
,W)<>0 THEN GO TO 275 

277 LET Y=2: LET Xx=04 

280 PRINT AT 1,D3 PAPER 5;" 
AT 2,D3". "¡AT 1,3+((X-1)x3);5 
K 13 FLASH 13" 
RD 
Os EF 

283 GD SUB 400 
285 PAUSE 100: 


LET Z=2: LET X3=0 
THEN 60 TO 275 


us 
IN 
"3AT 2,3+((X-1) 
PAUSE 100: REM GRAFIC 


PRINT AT 1,3+((X 


-1)$3)3 PAPER 53" "¿AT 2,3+((X- 
Dr" 

290 GO TO 250 

300 PRINT AT 0,12; INK 15 PAPER 
63 BRIGHT 1;"TU JUGADA": BEEP . 
25,35 

302 PAUSE 100: LET SF=0 

305 PRINT AT 0,12; BRIGHT 05 PA 
PER 53" . 

309 LET C=1: LET D=1S: LET X=5: 
LET Y=2: LET Z=1 

310 PRINT PAPER 35 INK 03 FLAS 
H 1JAT C,Dp RAT 041, DI 
315 PAUSE 1: LET Z$=INKEY$: IF 
Z$="" THEN GO TO 315 

317 IF 2$="0" OR Z$="8" OR Z$=" 


5" THEN GO TD 320 

318 GO TO 315 

320 BEEP .2,12: PRINT AT C,D3 P 
APER 53%  "jAT C+1,D53" " 

325 1F 2$="8" THEN LET D=D+3 
326 IF 2$="8" THEN LET X=X+1 
330 IF D>24 THEN LET D=24 

331 IF X>8 THEN LET X=8 

335 IF Z%="5" THEN LET D=D-3 
336 IF 2$="5" THEN LET X=X-1 
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tú consigues cuatro en una línea 


O 
O 
O 
O 
O 


340 IF Dx6 THEN LET D=6 

341 IF X<2 THEN LET X=2 

345 IF Z$="0" THEN GO TO 35% 
350 GO TO 310 

3559 IF M(2,X)<>0 THEN GO TO 30 
9 

356 GO SUB 400: REM COLOCA 

365 GO SUB 700: IF FOUND=1 THEN 

60 TO 1000 

395 GO TO 250 

400 REM COLOCA 

401 IF M(Y+1,X)=0 THEN LET Y=Y 
+1 

405 IF M(Y+1,X)<>0 THEN GO TO 
420 

410 GOD TO 401 

420 LET M(Y,X)=Z 

450 LET A=1: LET B=3 

455 IF Z=1 THEN LET IN=6 

460 IF Z=1 THEN LET PA=1 

465 IF Z=2 THEN LET IN=1 

470 1F Z=2 THEN LET PA=6 

475 LET A=0+(Y-1)*32 LET B=B+(X 
=1)%3 

480 PRINT — INK IN3 PAPER PA5AT 
Ay B3 Citi AT A+1,B3" "s REM GR 
AFICOS AB Y CD 

485 RETURN 


500 IF SF=0 THEN RETURN 


505 PRINT AT 1,D3 PAPER 53%.  "s 
AT 2,D3" " 

510 LET D=6+INT (RND*6) +3 

515 PRINT  INK 13 FLASH 15AT 1, 
Ue MAT 2,D3" 1 REM GRAFIC 
DS EF 

520 PAUSE 5: RETURN 

530 LET N=0: LET TEMP=0 


535 LET T=M(V+N,X)2 IF T=Z THEN 
LET TEMP=TEMP=1 
540 LET N=N+1: IF Z=T THEN GO 
TO 535 
545 IF TEMP>=4 THEN LET FOUND= 
1 
546 IF TEMF>2 AND Z=1 THEN LET 
X3=X 
547 RETURN 
550 LET N=0: 
555 LET T=M(Y,X-—N) : 
LET TEMP=TEMP+1 
560 LET N=M+1: 1F T=Z THEN GO 
TO 555 
565 LET N=1 
567 LET T=M(Y,X+N): 1F T=Z THEN 
LET TEMP=TEMP+1 
570 IF TEMP>=4 THEN LET FOUND= 


LET TEMP=0 
IF T=Z THEN 


571 1F TEMP>2 AND Z=1 THEN LET 
X3=X 
572 RETURN 


575 LET N=1: LET TEMP=0 


577 LET T=M(Y+N,X+N)3 1F T=Z TH 
EN LET TEMP=TEMP+1 

579 LET N=N+1:2 IF T=Z THEN GO 
TO 577 

581 LET N=0 

583 LET T=M(Y-N,X-N)2 1F T=Z TH 
EN LET TEMF=TEMP+1 

585 LET N=N+1: IF T=Z THEN GO 


TO 583 
587 IF TEMP>=4 THEN LET FOUND= 
1 

588 IF TEMF>2 AND Z=2 THEN LET 
x3=X 

589 RETURN 

£00 LET N=0: LET TEMP=0 

606 LET T=M(Y+N,X-N)3 IF T=Z TH 
EN LET TEMP=TEMP+1 

610 LET N=N+1: IF T=Z THEN GO 
TO 405 

6153 LET N=1 

620 LET T=M(Y-N,X+N): 
EN LET TEMP=TEMP+1 
625 LET N=N+1: IF T=Z THEN GO 
TO 620 

630 IF TEMP>=4 THEN LET FOUND= 
1 

632 
X3=X 
635 RETURN 

650 LET FOUND=0 
653 FOR Y=2 TO 7: 
660 LET T=M(Y,X):3 


IF T=Z TH 


IF TEMP>2 AND Z=2 THEN  LET 


FOR X=2 TO 8 
IF T=0 THEN 


GO SUB 690 
665 IF FOUND=1 THEN GO TO 800 
670 NEXT X: NEXT Y 
675 LET Y=2: RETURN 
690 IF M(Y+1,X)=0 THEN RETURN 


691 LET M(Y,X)=Z: GO SUB 700 
692 IF FOUND=0 THEN LET M(Y,%) 
693 IF FOUND=0 THEN LET M(Y,X) 
=0 

694 1F FOUND=1 THEN LET Y1=Y 
693 IF FOUND=1 THEN LET X1=X 
£76 RETURN 

700 GO SUB 500: GO SUB 530 

705 GO SUB 550 

710 GO SUB 500: GO SUB 575 

715 GO SUB 600 

720 RETURN 

800 IF Z=1 THEN (GO TO 4753 

802 PRINT AT 1,D;3 PAPER 53 INK 


o.0 O 


O 


o” -0.. 0 
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30 "¿AT 2,D3" 
*3)5 INK 13 FLASH 
+ (XL 

805 PAUSE 50 

810 GO SUB 450 

815 GO TO 1000 

850 LET FOUND=0; 
PAPER 55" "sAT 2 
((X-1)3)5 FLASH 
CALA 
T_ PAPER 5;AT 1,3 
¡AT 2,3+((X-1)*3) 

860 GO SUB 400 

865 PRINT 100: G 

870 LET X=X3: GO 
1000 IF Z=1 THEN 
1002 BEEP .5,3: B 
Y 
1005 IF 2=2 THEN 
1010 IF Z=1 THEN 

BRIGHT 13 PAPER 

3 "GANASTE" 

1015 IF 2=2 THEN 
BRIGHT 13 PAPER 
15 "GANE" 

1020 FOR N=1 TO 1 

1025 PRINT AT 0,1 


1027 PRINT AT 11, 
05 "YO"5AT 13,23M 
¿AT 13,29;TU 

1030 LET A=1: LET 
1035 FOR X=2 TO 8 
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PAUSE 100: 


"AT 
13" 


1,3+((X-1) 
"saT 2,3 


PRINT AT 1,D; 
¿D3"  "3AT 1,3+ 
Ls T 2,3+ 
PRIN 
+((X-1)RD)30 


O TO 250 

TO 850 

LET TU=TU+1 
EEP .2,6: BEEP 


LET MI=MI+1 
PRINT AT 0,11; 
63 INK 15 FLASH 


PRINT 
63 INK 


AT 0,11; 
15 FLASH 


000: NEXT N 
13 PAPER 33” 


15 PAPER 53 INK 
I3AT 11,283"TU" 


B=3 
¿2 FOR Y=7 TO 2 


STEP -1 

1037 LET M(Y,X)=0 
1040 PRINT PAPER 73AT A+((Y-1)x+* 
3),B+((X-1)3)53" "¿AT A+1+((Y-1 
)3) ,B+((X-1IX3I 30" 


1045 LET R=INT (RND*12)+1: BEEP 
.02,R 
1050 NEXT Y: NEXT Xz PRINT AT 1, 
63 PAPER 53" 

“sAT 2,63" 
1055 GO TO 135 
1100 PRINT  PAFER 53 INK OjAT O, 
9;"ES TABLAS" 
1105 FOR K=1 TO 775: NEXT K 
1110 PRINT AT 0,03 PAPER 53" 
1115 GO TO 1030 
2000 PAPER 6: INK 1: 
LS : PRINT AT 9,85"CUATRO EN RAY 
A!l!": PAUSE 300: RETURN 
3000 BORDER 7: PAPER 7: INK 0: C 
LS 
3005 PRINT " Derrota al “SPECTR 


UM” consi-"””"guiendo cuatro fich 
as en la mis-"*"ma linea vertica 
1, horizontal o diagonal."”*>”"Pul 
sa 8 para ir a la derecha"”” "pul 
sa 5 para la izq"””*"pulsa O para 
dejar caer la ficha" 
3010 PRINT AT 18,55 FLASH 15"FPUL 
SA UNA TECLA": FAUSE O: CLS : RE 
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5. Nueve por nueve 


Este juego se realiza en un tablero de nueve por nueve casillas, no como en las DAMAS, 
que es de ocho por ocho. 

Los movimientos son de una sola casilla de longitud, y la dirección es siguiendo 
cualquier diagonal (hacia adelante o hacia atrás). Las fichas se comen como lo hacen los 
peones en el AJEDREZ, mueves diagonalmente y aterrizas en la ficha a la que quieres comer. 
Sólo se puede comer una ficha por turno. 

El ordenador juega primero. Y el ganador es el que primero se coma seis de las fichas 
contrarias. 

Tú juegas desde la parte de abajo de la pantalla (las fichas que tienen forma de 
primera versión) y el ordenador juega desde arriba de ésta (las fichas con forma de 
primera versión). 


“o ” 


en la 
en la 


o dE 


MAME a a > BO 
LI. RULO LIA Id 


Uan 


] 
500 El 
dl pal 0D == 
o |) 


ESPE" 


El 


- 153 


Mueves tus fichas introduciendo primero la coordenada Y (viene indicada a los lados del 
tablero), pulsas ENTER, después la coordenada X (viene indicada arriba y abajo del tablero) 
y vuelves a pulsar ENTER. Después haces otra vez lo mismo con la casilla a la que quieres 
mover. No intentes hacer trampas, el ordenador detectará los movimientos ilegales. 

Aquí tienes el primer listado de NUEVE POR NUEVE. 


REM %*x* NUEVE POR NUEVE 3% T HUMPUNT=HUMPUNT+1: BEEF .2,RND 
A *10 
230 LET S$(A+1,B+1)=" ": LET S$ 
(C+1,D+1)="0" 
240 GD SUB 145 
250 LET A$="0": GO SUB 1000 
260 IF Fl=1 THEN (GOD TO 300 
270 LET A$=" ": GO SUB 1000 
300 LET S$(E,F>=" " 
305>IF S$(E+G,F+H)="0"THEN LET 
COMPPUNT=COMPPUNT+1:BEEP .1,RNDx 
50 
LET HUMPUNT=0: LET COMPPUNT 310 LET S$(E+G,F+H)="x" 
DIM S5$(10,11) 320 GO SUB 145 
120 FOR A=1 TO 10 330 GO TO 160 
130 READ B$: FOR B=1 TO 11: LET | 1000 LET FL=0 
S$ (A, B)=B$ (B) 1005 FOR E=2 TO 9 
140 NEXT B:z NEXT A 1010 FOR F=2 TO 10 
142 GO TO 155 1020 IF S$(E,F)<>"x" THEN GD TO 
145 BEEP .02,3: PRINT AT 0,03 I 1070 
NK 73 PAPER 13"MI PUNTUACION> "3 1030 IF S$(E+1,F+1)=A$ AND E+1<1 
COMPPUNT, "TU PUNTUACION> ";HUMPU | O AND F+1<11 THEN LET G=1s LET 
NT3AT 4,0 H=1: LET FL=(A4$="0")s RETURN 
150 FOR A=1 TO 10: PRINT TAB 9; 1040 IF S$(E+1,F-1)=A4% AND E+1<1 
: FOR B=1 TO 11: FRINT S$(A,B);3: O AND F-1>*=2 THEN  LET G=1: LET 
NEXT B: NEXT A: IF HUMPUNT=6 OR | H=-1: LET FL=(A$="0"): RETURN 
COMPPUNT=6 THEN 60 TO 1130 1050 IF S$(E-1,F-1)=A$% AND E-1>2 
152 RETURN AND F-1>=2 THEN  LET G=-1: LET 
155 GO SUB 145 H=-1: LET FL=(A$="0"): RETURN 
160 PRINT  INK 258T 16,053"DESDE | 1060 IF S$+(E-1,F+1)=4$ AND E-1>2 
2": INPUT Az PRINT AT 16,7; FLAS AND F+1<=10 THEN LET G=-1: LET 
H 1303" 2": INPUT B: PRINT AT 1 H=1: LET FL=(A$="0"): RETURN 
INK 15"DESDE "3A3B3" A 2" 1070 NEXT F: NEXT E 
INPUT C: FPRINT AT 16,13303" | 1080 RETURN 
INPUT D: PRINT AT 16,03" 1110 IF F>9 THEN RETURN 
.8 1120 GO TO 1010 
IF ABS (A-C)=1 AND ABS (B-D | 1130 IF HUMPUNT=6 THEN PRINT AT 
)=1 THEN G0 TO 200 16,03 INK 23 FLASH 13 "GANASTE! ! 
190 PRINT AT 16,03 FLASH 13 INK | !” 
35 "MOVIMIENTO ILEGAL!" FAUSE 1 | 1140 IF COMPPUNT=56 THEN FRINT A 
00: PRINT AT 16,03” T 16,03 INK 23 FLASH 13"TE GANE! 
": GO TO 160 pan 
200 IF S$(C+1,D+1)="x" THEN LE 
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Una vez que tengas esta versión lista, ya que hayas practicado un poco con ella, puedes 
querer sacar mejor partido de las posibilidades gráficas del Spectrum. Esta nueva versión usa 
gráficos definidos, y los colores son tratados con mejores resultados que en la primera. 

Seguro que no te cuesta casi pasar de la primera versión a la segunda. 
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REM x** NUEVE POR NUEVE %* 
GO SUB 2000 
RESTORE 10 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
LET HUMPUNT=0: 
0: DIM S$(10,11) 
120 FOR A=1 TO 10 
130 READ B$: FOR B=1 TO 11: 
S$ (A, B)=B$ (B) 
140 NEXT B:z NEXT A 
142 GO TO 155 
145 BEEP .02,5: PRINT AT 0,05 1 
NK 73 PAPER 1: "MI PUNTUACION> "3 
COMPPUNT, "TU PUNTUACION> "¿HUMPU 
NT3AT 4,0 
150 FOR A=1 TO 10: PRINT TAB 9; 
: FOR B=1 TO 11: PRINT S$(A,B)3: 
NEXT B: NEXT A: IF HUMPUNT=5 OR 
COMPPUNT=6 THEN GO TO 1130 
152 RETURN 
155 GO SUB 145 
160 PRINT  INK 25AT 16,03 "DESDE 
2": INPUT Az FRINT AT 16,7; FLAS 
H 15303" 2": INPUT Bz PRINT AT 1 
INK 13 "DESDE "3A5B5" A 7?" 
INPUT C:PRINT AT 16,135C3" 
INPUT Dz FRINT AT 16,05" 


LET COMPPUNT 


LET 


IF ABS (A-C)=1 AND ABS (B-D 
)=1 THEN GD TO 200 
190 FRINT AT 16,0; 
75 "MOVIMIENTO ILEGAL !": 
00: PRINT AT 16,03" 
": GD TO 160 
200 IF S$(C0+1,D+1)="51" THEN L 
ET HUMPUNT=HUMPUNT+1: BEEF .2,RN 
Dx10 
230 LET S$(A+1,B+1)=" ": 
(0+1,D+1)="04" 
240 GO SUB 145 
250 LET A$="04"x 


FLASH 13 INK 
FAUSE 1 


LET S$ 


GO SUB 1000 


260 
270 


IF FL=1 THEN GO TO 300 
LET A$=" ": GO SUB 1000 

300 LET S$(E,F)=" " 

305 IF S$(E+G,F+H)="31" 
ET COMPPUNT=COMFPUNT+1: 
RND*50 

310 LET S$(E+6,F+H)=":" 

320 GO SUB 145 

330 GO TO 160 
1000 LET FL=0 
1005 FOR E=2 TO 9 
1010 FOR F=2 TO 10 
1020 IF S$(E,F)<>"=" 
O 1070 
1030 IF S$(E+1,F+1)=0$ AND E+1<1 
O AND F+1<11 THEN LET G=1: LET 
H=1: LET FL=(A$="4:"): RETURN 
1040 IF S$(E+1,F-1)=A$ AND E+1<1 
O AND F-1>=2 THEN LET G=1: LET 
H=-1: LET FL=(A$=":"): RETURN 
1050 IF S5$(E-1,F-1)=0$ AND E-1>2 

AND F-1>=2 THEN LET G=-1: LET 
Hs-1: LET FL=(A$="."): RETURN 
1060 IF S$(E-1,F+1)=A$ AND E-1>2 

AND F+1<=10 THEN LET G=-1: LET 

H=1: LET FL=(A$="4"): RETURN 
1070 NEXT F: NEXT E 
1080 RETURN 
1110 IF F>9 THEN RETURN 
1120 GO TO 1010 
1130 IF HUMFUNT=ó THEN PRINT AT 

16,03 INK 2; FLASH 13 "GANASTE! ! 
su 
1140 IF COMPPUNT=6 THEN FRINT A 
T 16,0; INK 23 FLASH 13"TE GANE! 
tia 
1150 STOP 
2000 RESTORE 2090 
2005 FOR g=0 TO 7 
2010 READ a 
2020 POKE USR " 
2030 NEXT G 
2040 FOR G=0 TO 7 
2050 READ A 
2060 POKE USR "4"+G,A 
2070 NEXT G 
2080 RETURN 
2090 DATA 0,62,42,62,62,34,99,0 
2100 DATA 42,42,126,126,126,126, 
125,0 
2110 RETURN 


THEN L 
BEEP .1, 


THEN 60 T 
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6. Othello 


El OTHELLO es un programa basado en el REVERSI, un juego de los favoritos en la 
época victoriana inglesa. 

Este juego se realiza en un tablero de ajedrez, de ocho por ocho casillas. Cuando 
empieza el juego, en el centro del tablero hay colocadas cuatro fichas; como puedes ver en el 
dibujo, dos fichas son de. cada bando. 
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Movimiento: Colocas tus fichas al lado de una ficha dal ordenador, de tal forma que la 
ficha del ordenador quede entre dos fichas tuyas. Al ocurrir esto la ficha del ordenador 
cambia de color y se transforma en una ficha tuya. Lo mismo ocurre cuando el ordenador 
juega; tus piezas cambian de color y se convierten en suyas. 

Aunque parezca mentira que este pequeño programa pueda jugar bien, lo hace, y 
además es entretenido jugar contra él. 

El programa usa para jugar los conocimientos que tiene de las mejores posiciones. Esta 
información está contenida en las cadenas y$ y z$ (en las líneas 1000 y 1010). 

Merece la pena que te preocupes en ver cómo trabaja el programa, ya que es extremada- 
mente compacto, y se puede aprender bastante de él. 

Mueve tus fichas tecleando las coordenadas de la posición en que las quieras colocar. 
Teclea un “0” si no puedes mover. 


t 

O REM x*x* OTHELLO *x 510 LET B$="X"2 LET C$="0" O 
10 GO TO 1000 520 INPUT "COORD Y",Gs INFUT "Ci 

0) 20 LET b$="0": LET cé$="X" OORD X",Hz IF H=9 THEN 60 TO 52 ¡9 
ZO FOR K=1 TO 60 o ¡ 
40 LET Y=VAL Y$(K)x2: LET Z=VA 530 LET Y=Gx2: LET Z=Hx*2 ; 

o Z7$ (K)*2 540 IF Y=0 THEN GO TO 20 ¡O 
SO IF SCREENS (Y,Z)<>" " THEN £00 GO TO 60 ¡ 

0) GO TO 200 990 STOP O 
60 LET J=0 1000 LET Y$="1881513861386336415 |! 
70 FOR C=-2 TO 2 STEP 2 81548656435346457223277426357712 '! 

O 80 FOR D=-2 TO 2 STEP 2 182877272" O 
90 LET E=0: LET U=Y: LET V=Z 1010 LET Z$="88111616838336368348 | 

o) 100 IF SCREENS (U+C,V+D)<>B$ TH | 45115435346562775367436257224128 1 O 
EN 60 TO 120 771282772" ¡ 

0) 104 FOR X=1 TO 8 1020 LET X$=" ó 
110 LET E=1: LET U=U+C: LET V=Y | +" 
+D: GO TO 100 1030 PRINT "41234567848"! 

¡o 120 IF SCREENS (U+C,V+D)<>C$% OR 1040 FOR X=1 TO 8 : 10) 
THEN GO TO 150 1050 PRINT X$ 1 

O PRINT AT U,V3C$ 1060 PRINT X3" (fi 1 O 
IF Y=U AND Z=VY THEN G0 TO OS 
o 1070 NEXT X 

LET U=U-C: LET V=V-D: LET J | 1080 PRINT X$ 1 O 
1090 PRINT "4123456784"! 

0) GO TO 130 1100 PRINT AT 8,8;"X"3AT 8,103"0 0 
NEXT D: NEXT C “¿AT 10,83"0"3AT 10,105"X" 

O IF B$="X" OR J=1 THEN GO T | 1110 INPUT "QUIERES SALIR! (S-SI) ; o 
",Q$ 1 
200 NEXT K 1120 LET E$="0" 

o 300 IF J<>0 THEN STOP 1130 IF Q$="S" THEN GO TO 500 ¡O 
500 IF B$="X" THEN GO TO 20 1140 GO TO 20 
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1. Juega bien tus cartas 


En este juego os enfrentáis el ordenador y tú. Cada uno tenéis una serie de seis cartas. El 
objetivo es alcanzar la última de las seis cartas adivinando si la carta que se va a dar la 
vuelta será mayor o menor que la anterior. 

Tu turno dura tanto como tú quieras, mientras vayas adivinando las cartas correctamen- 
te. Pero si tienes un error, y lo que has supuesto no es cierto, entonces, todas las cartas a las que 
diste la vuelta en ese turno serán devueltas a la baraja; se cambiarán por otras para que no 
sepas cuáles son y pierdes tu turno. Te puedes parar en cualquier momento y así mantienes 
las cartas a las que has dado la vuelta en ese turno para el siguiente. Pulsa F para acabar tu 
turno; verás cómo la señal que indica que tus cartas están congeladas se mueve hasta la carta 
en la que te hayas parado en ese momento. 
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El ordenador empieza el juego y también cada turno preguntándote si quieres cambiar 
la última carta aparecida o no (pulsa S —si— o N —no— según sea tu elección). Si crees que 
la carta no es buena, cámbiala. 

Verás que el ordenador en este programa juega realmente bien, aunque falla un poco, 
quizá, en que es poco arriesgado. 

Las cartas las saca aleatoriamente el ordenador de una baraja real que tiene en su 
memoria; si en una partida se acaba la baraja, esta partida acaba; el ordenador te avisará si 
esto ocurre. 

Te quedarás impresionado de lo bien hechas que están las cartas, y la presentación del 
juego en conjunto. Seguro que conoces la canción que toca el ordenador antes de empezar a 
jugar. 
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El juego acaba cuando un jugador, tanto tú como el ordenador, consigue ganar tres 
partidas seguidas. 


| 1 REM *x JUEGA BIEN ** 8 REM ¡0 
| a* TUS CARTAS **e 9 REM ESCRIBE UNA CARTA 
| 2 LET GAME=1: LET PWIN=0: LET 10 INK Pz PAPER 7 LO 
| CWIN=O 20 FOR I=1 10 5 ' 
| 3 PAPER 4: BORDER 4: CLS 3O PRINT AT (P-1)x*11+1,0%5-43" | y 
4 PRINT AT 10,103 INK 03 "JUEG €" 
O ND.1" 40 NEXT 1 
5 60 TO 270 50 PLOT Cx*40-32, 168-(P-1)x88 1 O 
6 DEF FN U$(X$)=CHR$ (CODE X$ £0 DRAW 31,0: DRAW 0,-40 ] 
| (CODE X$>90)) 70 DRAW -31,0: DRAW 0,40 La 
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72 
o 80 
74 


IF CARD<3 THEN  INK 0: GO T 
IF CARD<S THEN 
80 FOR I=1 TO 3 

90 PRINT AT (P-1)x11+14+1,0x%5-3 
¡¿CHR$ (CARD+143)+CHR$ (CARD+143) 
100 NEXT 1 
110 IF CARD<S THEN FRINT OVER 
1547 (P-1)*11+1,C0x5-33C$(H(C,P) 
) 
115 PAPER 4 
117 BEEP .1,20 
120 RETURN 
128 REM 
129 REM REPARTE UNA CARTA 
130 LET DEAL=INT (RNDx52)+1 
140 IF U$(DEAL)="U" THEN 60 TO 
130 
150 LET U$(DEAL)="U" 
160 RETURN 
168 REM 
169 REM SUENA LA SIGUIENTE NOTA 
170 RESTORE 210 
180 FOR I=1 TO 9 p 
190 READ DU,NO: BEEP DUJ,NO 
200 NEXT 1 
210 DATA .25,0,.1,12,.35,7,.25, 
5,.1,7,:2,9,:05,7,.25,5,.4,0 
220 RETURN 
228 REM 
229 REM PITIDO POR FALLO 


INK 2 


230 FOR I=1 TO -4 STEP -.3: BEE 
P-.02,l:z NEXT Il: RETURN 
238 REM 


239 REM VALOR Y TIFO DE CARTA 
240 LET KND=INT ((N-1)/13)+1:2 L 
ET CRD=N-13%*(KND-1)+1:2 RETURN 
270 GO SUB 1050 

280 GO SUB 900 

290 PRINT  INK 053AT 8,53 FLASH 
1;"JUEGA BIEN TUS CARTAS", INVER 
SE 13TAB S5;3"JUEGA BIEN TUS CARTA 
s" 

295 GO SUB 170 


300 LET PC=1: LET CC=1: LET PS= 
1: LET CS=1 

310 IF INT (RND*.S5) THEN GO TO 
500 

318 REM 

319 REM TURNO DEL JUGADOR 


320 GO SUB 240 
330 
335 
340 
350 
360 


LET N=H(PC, 1): 
LET CARD=KND 
PRINT AT 19,03B$ 

LET C=PC: LET P=1 

60 SUB 10 

INPUT "QUIERES CAMBIAR DE C 
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ARTA?"31$ 
365 LET 1%$=FN U$(1$) 
367 IF 1%$<>"S" AND I$<>"N" 
GO TO 360 
370 1F I$="S" THEN GO SUB 130: 
LET H(PC,1)=DEAL: LET N=DEAL: G 
O SUB 240: LET CARD=KND: GO SUB 
10 
375 IF PC=6 THEN GOD TO 760 
380 INPUT "LA SIGUIENTE CARTA Y 
A A SER MA- YOR (M) O MENOR (X). 
PULSA S PA-RA PARAR"3 1% 
384 LET I$=FN U$(I$) 
390 IF I$="S" THEN PRINT AT 6, 


THEN 


PS3-33" "i LET PS=PC: PRINT 

AT 6,PS*5-33 INE 13 una 60 

TO 500 

396 IF 1$<>"M" AND 1$<>"X" THEN 
GO TO 380 


400 LET FC=PC+1: LET N=H(FC, 1) 


410 LET C=FC: GO SUB 240: LET C 
ARD=KND: LET CUR=CRD: GO SUB 10 
415 LET N=H(PC-1,1): GO SUB 240 


: LET PRE=CRD 

420 IF FREX<CUR AND I$="M" OR FR 
E>CUR AND I%="X" THEN GOD SUB 17 
O: GO TO 23753 

430 GO SUB 230 

440 IF PRE=CUR THEN PRINT — INK 
O¡AT 19,0;"NO VALEN DOS CARTAS 
IGUALES"? "-—--- NO EN ESTE JUEGO! 


1"; PAUSE 100: FPRINT AT 19,0;B*% 
450 FOR C=FS+1 TO FC 

450 GO SUR 130 

470 LET H(C,1)=DEAL 

480 LET CARD=5: GO SUB 10 

490 NEXT C 

495 LET PC=FS 

500 REM 

502 REM **x*LE TOCA AL SPECTRUM 
540 LET N=H(CC,2): GO SUB 240 
550 LET CPR=CRD: LET CARD=KND 
555 PRINT AT 19,03B$ 

560 LET C=CC: LET P=2: GO SUB 1 
o 

570 IF cpr>S AND cpr<11 THEN P 
RINT — INK 03AT 20,0;5"CAMBIO LA C 
ARTA. ": PAUSE 50: GO SUB 130: LE 


T H(CC,2)=DEAL: LET N=DEAL: GO S 
UB 240: LET CARD=KEND: GO SUB 10: 
PRINT AT 20,0;B5$ 

580 IF CC=6 THEN GO TO 780 
590 LET N=H(CC,2): GO SUB 240: 
LET CPR=CRD 

600 LET FOS=8-CPR 

410 IF ABS POS<3 AND CS<>CC THE 
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N FRINT — INK 03AT 20,93"ME PARO 
"sí PRINT AT 17,CS*59-33" "2 L 
ET CS=CC: PRINT AT 17,CS*5-33 IN 


k 25" 
o 


PAUSE GO TO 32 


50: 


620 LET M$=("X" AND POSX0)+("M" 
AND POS>0) 

630 IF POS=0 THEN LET R=INT (R 
ND+.5): LET Mé$=("M" AND R)+("X" 
AND NOT R) 


£40 PRINT AT 20,93 INK 0; "DIGO 
"5 CO 'MAYOR” AND M$="M")5 ( "MENOR" 
AND M$="X") 

645 PAUSE 50 
650 LET CC=CC+1: 
660 LET C=CC: GO SUB 240: LET C 
ARD=KND: LET CUC=CRD: GO SUB 10 
670 IF CPFR<CUC AND Mé="M" OR CP 
R>CUC AND Mé="X" THEN GO SUB 17 
0: GO TO 580 

680 GO SUB 230 

690 FOR C=CS+1 TO CC 
700 GO SUB 130 

710 LET H(C,2)=DEAL: 
720 GO SUB 10 

730 NEXT C 

740 LET CC=CS 

750 GO TO 320 

738 REM 

759 REM GAME OVER 
760 LET PWIN=FWIN+1 
770 1F PWIN=2% THEN GO TO 850 
773 G0 TO 800 

780 LET CWIN=CWIN+1 

790 1F CWIN=3 THEN GO TO 870 
300 LET GAME=GAME+1 

810 PRINT — INK O5AT 10,19;GAME: 
GO SUB 170 

820 60 TO 280 

£50 PRINT AT 19,55 
13 "GANASTE" 

860 60 TO 880 

870 PRINT AT 19,55 
13"TE GANE” 
880 GO SUB 170: 
GO 2"31$ 

890 IF FN U$(I$)="N" 
23693,56: STOP 

895 RUN 


LET N=H(CC, 2) 


LET CARD=5 


FLASH 13 INK 


FLASH 13 INK 


INPUT "OTRO JUE 


THEN POKE 


898 


1055 
1058 
1059 
1060 
1065 
1070 
1080 
»N 
1090 
1100 
1110 
1120 
16 
1130 
6,0 
1140 
s16 
1150 
135 
1160 


REM 


899 REM *REALIZACION DE LA BARA 


A$=" 2345678 910 
Té$=A$ 

C$ (52,2) 

I=1 TO 52 

C$(1)=T$( TO 2) 
Té=T$(3 TO ) 

IF T$="" THEN LET T$=A$*' 
NEXT 1 

DIM U$(52): 
DIM H(6,2) 
LET CARD=S 
REM 
REM 


DIM B$ (44) 


*eXLA FANTALLA INICIAL* 
FOR F=1 TO 2 

FOR C=1 TO 6 

GO SUB 10 

GO SUB 130 

REM **REPARTE LAS DOS MANOS 
LET H(C),FP)=DEAL 

NEXT C 

NEXT F 

PRINT AT 3,O53FWINZAT 13,03C 


FRINT AT 6,23 INK 
INK 23" 


1; 


REM o**U.D.G. 
RESTORE 1040 
FOR I=0 TO 4 
FOR J=0 TO 7 
READ Nz POKE USR "4"+1x*8+J 
NEXT J 

NEXT 1 

DATA 0,8,28,42,127,42,B,28 
DATA 0,16,55,124, 254,254, 84 


DATA 0,108,254,254,124,56,1 


DATA 0,16,56,124,254,124,56 
DATA 85,34,85,136,85,34,8S, 


RETURN 


O 


O O 0.000 GOO o 


O 
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2. Agudeza 


Este programa te demostrará que un ordenador puede tener poderes paranormales. Con 
él comprobarás si tu ordenador tiene o no tiene AGUDEZA. De una baraja de cartas 
inglesas debes elegir una carta; piensa en ella. Después realiza las operaciones que te pida el 
ordenador. 

Teclea el resultado de esas operaciones. Verás cómo el ordenador adivina en qué cartas 
estabas pensando. El te preguntará al final si ha acertado o no; si le intentas engañar, atente 
a las consecuencias. 

Piensa intensamente... 

Ahora que ya has jugado bastante, ¿por qué no intentas averiguar por qué el ordenador 
adivina la carta que has elegido? 

Si quieres una ayuda, te digo que te fijes en la propiedad que tiene la multiplicación por 
cinco. Esta propiedad consiste en transformar todos los números que se multiplican, en otros 
acabados en cinco o en cero. 


l 1 REM ** AGUDEZA +%* 20 PRINT AT 18,33" PENSARE EN 
o d 7 BORDER S: PAFER 7 LA CARTA QUE"; TAB 11;3”HAS ELEGID 
| 10 PRINT — INK 25471 2,11;3"TELEP O": PAUSE 200: CLS ¡ 

O ¡ ATIA": PRINT 25 INK 2: PRINT AT 1,53" PIENS O 
¡ 12 PRINT AT 10,135" Un juego en A EN UNA CARTA -”: PRINT l 
o! el que se prueban"”"los poderes 30 PRINT TAB 53"AS = 1" O 
paranormales del"*”TAB 113 "SPEC 35 FPRINT TAB 553"JOTA = 11" h 
' TRUM" 40 PRINT TAB S;"REINA = 12” ¡ 

O 15 FOR N=0 TO 15: PRINT "4%" 45 PRINT TAB S3"REY = 13" ¡0 
ls NEXT N:z FOR N=0 TO 15: PRINT " 47 PRINT : PRINT " DUPLICALO, 
alo La 


'32 NEXT ON SUMALE 1 Y MULTIPLI-CALO FOR 35" 


50 PRINT : PRINT TAB 2;" Si es 
un -": PRINT 

35 PRINT TAB 53" corazon: suma 
le Ss" 

60 PRINT TAB 53" diamante: sum 
ale 6” 

65 PRINT TAB 53" picas: sumale 
7" 

70 FRINT TAB 53" espadas: suma 
le 8" 

72 INK O 

73 PRINT : PRINT : PRINT  INK 
2¡3TAB 6; "TECLEA EL RESULTADO": I 
NPUT R: CLS 

80 LET C=INT (R/10): LET S=R-C 
*10 

83 INK O 

85 PRINT AT 4,4;"DEJAME FENSAR 
-": PAUSE 100: CLS 

90 PRINT AT 5,03"HAS ELEGIDO " 

95 IF C=12 THEN.” FPRINT "JOTA"; 
100 IF C=13 THEN FPRINT "REINA" 
, 

105 IF C=14 THEN  PRINT "REY"3 
110 IF C=2 THEN PRINT "AS"; 


115 IF C>2 AND C<12 THEN PRINT 


"HAS ELEGIDO "50-15 

120 PRINT " DE "3 

125 IF NOT S THEN. FRINT "CORAZ 
ONES"s5 

130 IF S=1 THEN FRINT "DIAMANT 
ES"; , 

135 IF S=2 THEN FPRINT "PICAS”; 
140 IF S=3 THEN FRINT "ESPADAS 
145 PRINT "," 

150 PRINT AT 15,8; "TENGO RAZON? 
"3 INFUT AS 


155 IF A$<>"SI" THEN FRINT TAB 
1;"HARIAS MEJOR EN REVISAR TUS 


MATEMATICAS! !'": BORDER 165 
160 FOR B=0 TO 2: BORDER INT (R 
ND*8): BEEP .1,20: NEXT B: PRINT 


TAB 13"CLARO QUE TENGO RAZON, S 
O TONTO" 

1645 PAUSE 200: CLS : 
ERES OTRO INTENTO"; R$ 
170 IF R$="SI" THEN GO TO 1 
175 PRINT AT 13,12;”ADIOS!”: 
USE 100: CLS : STOP 


INPUT "QUI 


PA 
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3. Veintiuna 


Este fantástico programa ha sido escrito por Paul Evans, y necesita para ejecutarse un 
Spectrum de 48K. 

El objetivo del juego es coger cartas hasta que te quedes con unas que sumen 21 o te 
plantes en menos; no te debes pasar, ya que entonces pierdes. Si tus dos primeras cartas 
suman 13 o menos, entonces las puedes cambiar por otras dos. Un as puede valer tanto 11 
como 1. Las figuras valen 10 puntos. 

El ordenador empieza barajando las cartas; son cinco barajas de 52 cartas; por ser 
tantas, tarda un poco: un minuto más o menos. Una vez barajadas, el ordenador reparte dos 
a cada uno (dos para él y dos para ti). 

Entonces, antes de que veas tus cartas, el ordenador te pregunta el dinero que apuestas 
en ellas; las apuestas deben ser enteras, y debes pulsar ENTER cuando hayas hecho tu 
apuesta. Una vez que has hecho esto, el ordenador da la vuelta a las cartas y entonces las 
puedes ver. 

Ahora puedes elegir entre pararte, quedarte con esas cartas, o pedir más. 
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Sólo necesitas pulsar ENTER cuando hagas tu apuesta, ya que todas las demás veces 
que te pide datos el ordenador es por vía INPUT. 
“Las variables que usa este juego son: 


B(u)—Valor de la carta número u. 
A$(u) —Palo de la carta u. 
cl—Número de cartas en la mano del jugador. 
c2—Número de cartas en la mano del ordenador. 
n—Valor de la mano con los ases contados como uno. 
n1—Valor de la mano con los ases contados como uno o como once, depen- 
diendo qué sea mejor. 
t—El valor final de la mano del jugador. 
ti —El valor final de la mano del ordenador. 
m—-El dinero del ordenador. 
b—La apuesta del jugador. 


Fijate que CAPS LOCK no esté conectada, es decir, que escribas en minúsculas, ya que 
el programa sólo examina los datos en minúsculas. 

Mira la línea 560, verás cómo Paul ha hecho la sentencia IF ... THEN ... ELSE tan propia 
del PASCAL, y que otros BASIC, pero no el del Spectrum, tienen. 


ds A 
BY — A SRAFICO E 
Be e BERAAFTICO 
Bl  EAF TOO E 
lo —— e GMGRAFICO E 


e | A MAF TELA. F 


' | 
o! 1 REM x%%* VEINTIUNA *x* 20 READ P$ ¡0 
I 
6 LET M=100: LET U=slz LET DB= 30 FOR F=0 TO 7 
o : 0 LET C2=0 40 READ A: POKE USR P$+F,A O) 
! 10 FOR X=1 TO 6 50 NEXT Fiz NEXT X 


oo O 


60 DATA "A",BIN 00011000,BIN O 
0111100,BIN 01111110,BIN 1111111 
1,BIN 11111111,BIN O1111110,BIN 
00111100,BIN 00011000 

70-DATA "B",BIN O1100110,BIN 1 
1111111,BIN 11111111,BIN 1111111 
1,BIN 11111111,BIN O1111110,BIN 
00111100,BIN 00011000 

80 DATA "C",BIN 006011000,BIN O 
0111100,BIN 00011000,BIN 0111111 
O,BIN 11111111,BIN O1111110,BIN 
00011000,BIN 00111100 
82 DATA "D",BIN 00011000,BIN O 
0111100,BIN O1111110,BIN 1111111 
1,BIN 11111111,BIN O1011010,BIN 
00011000,BIN 00111100 

85 DATA "E",O,BIN O1011110,BIN 

01010010,BIN 01010010,BIN 01010 
010,BIN O1010010,BIN O01011110,0 

88 DATA "F",BIN 10010010,BIN O 
0100100,BIN O1001001,BIN 1001001 
O,BIN 00100100,BIN O1001001,BIN 
10010010,BIN 00100100 

90 BORDER 7: PAPER 
Ls 

95 GO SUB 2000 

102 BORDER 6: PAPER 6: 
LS 

104 PRINT AT 10,103" id 
A "¿ PRINT PAPER 75AT 11,10 


7: INK O2 C 


INK 0: € 


106 PRINT PAPER 7;AT 12,105 "2% 
FLASH 13AT 12,12; "BARAJANDO" 
108 PRINT PAPER 7; 

Mi"5AT 14,103 "083 


110 DIM B(260): DIM A$(260,2): 
DIM B$(13): DIM W$(4) 

120 FOR X=1 TO 209 STEP 32 

130 LET Y=1 

140 FOR Z=X TO (X+51) 

150 LET B(Z)=Y-(13 AND Y>13)-(1 
3 AND Y>26)-(13 AND Y>39) 

160 LET A$(Z)=("2%:" AND Y<14)+ 


(MO AND (Y213 AND Y<27))+("24 
" AND (Y>26 AND Y<40))+("0" AN 
D Y>39) 

170 LET Y=Y+1 

180 NEXT Z 

190 FOR A=1 TO 2 

200 FOR Z=X TO (X+51) 

210 LET B=B(Z): LET B$*=A$(Z): L 
ET C=INT (RNDx32)+X 

220 LET BE(7)=B(C): LET B(C)=B 
230 LET A%(Z)=A$(C): LET A$(C)= 


170 


Bs 

240 NEXT Z: NEXT A: NEXT X 

250 FOR X=1 TO 13 

260 IF X>1 AND Xx10 THEN LET B 
$(X)=STRS X 


270 1F X=1 THEN LET B$(X)="A" 
275 1F X=10 THEN LET B$00="» 
” 

280 IF X=11 THEN LET B$s(X)="J" 
290 1F X=12 THEN LET B$(X)="Q" 
300 IF X=13 THEN LET BS(X)="k" 
310 NEXT X 

312 BORDER 4: PAPER 4: INK O: C 
Ls 

314 GO SUB 3250 

316 PRINT AT 1,23"TUS CARTAS: "5 


AT 10,2;"MIS CARTAS: " 


318 LET F=-1: LET Q=P: FOR A=1 
TO 2 

320 LET F=F+1: LET Q=P: FOR X=2 
TO 11 STEF 9: GO SUB 1000 

322 NEXT X: NEXT A 

324 LET X=2 

326 GO SUB 3000 

330 LET C1=0: LET N=0: LET Ni=0 


LET S=U: LET X1=U 

335 FOR U=x1 TO X1+2 STEP 2 
340 LET C1=C1+1: GO SUB £80 
345 NEXT Uz LET U=Xi+3 
350 IF N=21 OR N1i=21 THEN 
1=2 THEN GO TO 760 

360 IF N<22 OR N1<22 THEN GO T 
O 380 

370 PRINT AT 9,113"MAS DE 21!!" 
: LET T=22: 60 TO 490 


IFC 


380 IF N1>21 AND N<22 THEN LET 
Ni=N 

390 IF Ci=S THEN GO TO 780 
392 IF N=13 OR N1=13 THEN GO T 


D 400 

394 PRINT AT 3,C1x6-15" TE PARA 
S"3AaT 4, C1x6+15"0"3 AT 5,C1*6-1;" 
OTRA CARTA"; FLASH 13AT 7,C1x*6+ 
25 “non 

396 GO TO 405 

400 PRINT AT 3,C1x*6;3"TE FARAS";5 
AT 4,C1x63"DTRA CARTA" AT 5,C1x*6 
+1;3"0"3AT 8,C1*63 "CAMBIAS LAS CA 


RTAS"3 FLASH 15AT 9,C1xb6+23"72" 

O IF INKEY$="" THEN GO TO 40 
“410 IF INKEY$="P" THEN GOD TO 4 
“220 IF INKEY$="0" THEN GO TO 4 
“a IF INKEY$="C" THEN GO TO 4 


Oo. 0 O 


O 


50 


440 GO TO 392 

450 IF NX>13 AND N1<>13 THEN G 
O TO 394 

454 PAUSE 10 

456 FOR A=2 TO 8: FRINT AT A,05 

": NEXT A 

460 LET P=0: LET QO=1: GO SUB 10 
00 

4562 LET N=0: LET Ni=02* LET X1=U 
+1: LET Ci=0 

464 FOR U=X1 TO X1+1 

466 LET Cí=C1+1: GO SUB 480 


458 NEXT Uz LET U=Xi+1:z GO TO 3 
30 

470 LET U=sU+1i:r PRINT P=C1:8z LET 
Q=P: GO SUB 1000: LET Ci=C1+12 G 


O SUB £80: GO TO 350 

480 PRINT AT 9,113"TE PARAS" 
481 LET Ts*=" FRI 
NT AT 3,C1x653T$38T 4,C1x*53T$8;AT 
5,C1*63T$53AT 6,C1x*63T$;AT 7,C1x*6 
3T$3AT 8,C1x6;T5 

485 IF N1<22 AND N1>N THEN  LET 
T=N1 

486 IF Nx<22 AND N>=N1 THEN  LET 
T=N 

490 LET H=u 

500 LET X=11 


520 LET N=0: LET Ni=0: LET C2=0 
530 FOR U=S+1 TO S+3 STEP 2: LE 
T C2=C2+1: GO SUB 680: NEXT Uz L 
ET U=H 

534 PAUSE 100 

536 IF T=22 THEN GO TO 830 

540 IF T=21 AND Ci=2 THEN IF ON 
1=13 THEN 60 TO 610 

550 IF T=21 THEN IF Ci=2 AND N 


<>21 AND Ni<>21 THEN GO TO 790 
555 IF N>21 AND N1>21 THEN FRI 
NT AT 18,115"LA CASA SE PASO!! 


560 IF N>21 AND N1>21 THEN GO 

TO (790+(40 AND T>21)) 

570 IF C2=5 THEN FRINT AT 18,1 
15"5 CARTAS DE MANO": GO TO 830 

580 IF Ci=5 AND T>22 THEN GD T 
O 660 

590 IF (N<>13 AND N1<>13). OR (R 
ND*C2)>=1 THEN GO TO 630 


£00 PRINT AT 18,11;"PIERDE LA C 
ASA" 

610 PAUSE 150 

614 FOR A=11 TO 17: PRINT AT A, 
03" 


"z NEXT A 
616 LET N=0: LET Ni=0 
620 LET F=0: LET Q=1: GO SUB 10 
00: LET Xi=U+1: LET C2=0: FOR U= 
X1 TO Xi+1: LET C2=C2+1: GO SUB 
6802: NEXT Ur: LET U=X1+12 GO TO S 
34 


630 IF N=21 OR Ni=21 THEN GOD T 
O 850 

640 IF N1>=18 AND N1<22 OR N>=1 
8 THEN 60 TO 850 

650 IF N=16 OR N=17 THEN 
ND*C2)<1 THEN GO TO 850 
£660 FRINT AT 18,11;"LA CASA COG 
E CARTAS" 


IF (R 


670 LET P=C2: LET O=P: GO SUB 1 
000: LET C2=C2+1: LET U=U+1: GO 
SUB £80: GO TO 534 


680 IF U>26£60 THEN LET M=M+B: C 
LS : PRINT AT 10,53"BARAJA ESTA 
VACIA": GO TO 815 - 

682 LET G=(C1 AND X=2)+(C2 AND 
X=11)-1 


£84 LET I=VAL (A$(U,1))s LET Hs 
=A$ (U, 2) 

£85 PRINT AT X,Gx65 PAPER 73 IN 
K 05D$ 

686 INK 1 

£90 PRINT AT X+1,(Gx*6); PAPER 7 
3 INK 03% "3 INK T3BS(B(DIZ" " 
¡BSUB(U))F INK 03% 


692 PRINT — FAPER 73AT X+2, (6x6) 


3 INK 03" "3 INK 15H33" "3H85 1 
NK 03% gr 

674 PRINT PAPER 73AT X+3, (G*6) 
5 INK O; me .s " ms INK O; . sn 


696 PRINT PAPER 75AT X+4, (6x6) 
3 INK 032 "5 INK I5H83" "5Hs3 1 
NK7 03" gr 

698. PRINT PAPER 73AT X+5, (6x6) 
3 INK 03" "5 INK IsBES(B(U))¿" " 
¡BS(B(U))3 INK 05" ¿e 
699 PRINT PAPER 75 
6,6*65F$ 

700 IF B(U)=1 THEN 
710 LET N=N+B (LJ) 
720 IF B(U)=1 THEN 
THEN LET Ni=N1+1 
725 IF B(U)=1 THEN 
1 THEN LET Ni=N1+11 
730 IF B(U)»<>1 THEN LET Ni=N1+ 
B(U) 

740 INK O 

750 RETURN 

760 PRINT AT 9,113 "VEINTIUMA! " 
770 LET T=21: GO TO 490 


INK OjAT X+ 
LET B(U)=10 
IF Ni+11>21 


IF N1+11<=2 


O CINCO) 


O 


(o) 


O O 0.00 QA 0 6.0: 00. 0 


o. oO 
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780 PRINT AT 9,11;3"5 CARTAS DE 
MANO": GO TO 485 

7790 PRINT FLASH 1347 20,43"TU 
GANAS! ! LET M=M+2x*B: GO SUB 
3230 

800 IF M=0 THEN FRINT AT 21,15 
3"ESTAS ARRUINADO": PAUSE 250: G 


Ma 
: 


O TO 4000 

804 PRINT AT 21,153"0OTRO JUEGO? 
806 IF INKEY$="" THEN GO TO 80 
6 

810 IF INKEY$<>"N" THEN GO TO 
820 

814 IF DB>0 THEN GO TO 4100 
816 PRINT AT 20,43 ("GANASTE" AN 


D M>100)5 ("PERDISTE"” AND M<100)5 
("QUEDASTE IGUAL” AND M=100)3" * 
"¡ABS (100-M)+(M AND M=100): FRI 
NT AT 21,143” ": STO 
P 

820 LET U=U+1i: GO TO 312 

830 PRINT FLASH 15AT 20,45"GAN 
O LA CASA" 

840 60 TO 800 
850 PRINT AT 18,113"LA CASA SE 
ESTANCA" 

860 LET Tií=5N 

870 IF N1>N AND N1<22 THEN LET 
Ti=5N1 

888 IF T>21 THEN 
-890 IF Ti<22 AND 
TO 830 

900 GOD TO 790 
1000 


GO TO 2:30 
Ti>=T THEN GO 


LET Es="ú 


1020. 


1030 PRINT  FAFER 73AT X,Yx*6;DS 

1040 FOR Z=1+X TO 3+X 

1050 PRINT PAPER 75AT Z,Yx*6;E% 

1060 NEXT Z 

1064 FRINT PAPER 7348T X+6,Yx*b65F 
$ 

1066 PAUSE 50 

1070 NEXT Y 

1080 RETURN 

2000 BORDER 7: PRINT ”?TAB 33"EL 


OBJETIVO DEL JUEGO ES EL DE CON 
SEGUIR QUE LA SUMA DE TUS CARTAS 


SEA 21 O (QUEDARTE LO MASCERCA 
POSIBLE ,SIN FASARTE, DE ESTA C 
IFRA." 


20035 PRINT >TAB 33"AL PRINCIPIO 
TENDRAS DOS CAR-TAS Y SI ESTAS S 
UMAN TRECE EN- TONCES TIENES LA 
POSIBILIDAD DE CAMBIARLAS POR O 
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TRAS DOS." 

2010 PRINT *TAB 353"DESPUES TIENE 
S DOS OPCIONES: "*"—-D PEDIR OTRA 

CARTA"” "0 PARARTE CON ESAS CART 
As." 

2015 FRINT *TAB 33"DESPUES JUEGA 
EL ORDENADOR Y EL QUE SE QUEDE 
MAS CERCA DE 21 ES EL QUE GANA." 
2020 PRINT >TAB 33"SI EN UNA PAR 
TIDA SE ACABA LABARAJA, SE DEVUEL 
VEN LAS APUESTAS"3+*+13AT 0,0;3"Y E 

L JUEGO ACABA." 
2030 PRINT +15"UNA TECLA PARA CO 
NTINUAR" 


2040 1F INKEY$="" THEN GO TO 20 
40 
2050 CLS : PRINT TAB 3;"AL EMPEZ 


AR TENDRAS *100 QUE LAS IRAS AP 
OSTANDO A TUS CARTAS. LA MAXIMA 
APUESTA ES DE *500 Y LA MINIMA D 
E EJ, 2 

2060 PRINT *TAB 33"SI SE TE GAST 
A EL DINERO EL. CASINO TE DARA U 
N CREDITO DE HASTA *500 Y SI 
SE TE GASTAN ES-TAS TAMBIEN, ENT 
ONCES TE ECHAN A LA CALLE." 

2070 PRINT +13"UNA TECLA PARA EM 
PEZAR" 

2085 IF INKEYS$="" 
85 

2090 RETURN 

3000 PRINT AT 4,12;"CUANTO APUES 
TAS 2" 


THEN GD TO 2 


3020 PRINT AT 6,173"*"3 FLASH 13 
. Qs FLASH o; ” ”» 

3030 LET B=1 

3040 IF INKEY$<>"" THEN GO TO 3 
040 

3050 IF INKEY$="" THEN (GOD TO 30 
50 

3060 LET W=CODE (INKEY+$) 

3070 IF (W<48 OR W>57) AND (Wx<>1 


3) THEN GO TO 23040 

3080 IF W=13 THEN GO TO 

3090 LET W$(B)=CHR$ W 

3100 PRINT AT 6,17+B3W$(B)5 

Hg r2" 

3110 LET B=B+1 

3120 GO TO 3040 

3200 PRINT AT 6,17+B3" " 

3205 LET Z$="" 

3210 FOR Z=1 TO B-1:2 

$(Z)2 NEXT Z 

3220 LET B=VAL Z+$ 

3230 IF B>M OR B>500 OR B<1 THEN 
GO TO 3000 


3200 


FLAS 


LET Z$=Z$+W 
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3240 LET M=M-B 
3244 PAUSE 150: PRINT AT 4,123" 
"SAT 5,125" 
“SAT 6,173" E 

3246 PRINT PAFER 05 
, 43 "APUESTA=""5B 
3250 PRINT PAPER Os 


INK 73AT 20 


INK 7;3AT 0, 


145 "TIENES: *"5M3 PAPER 43" ' 
3260 RETURN 
4000 PAPER 7: CLS 


4010 IF DB<S THEN (GO TO 4050 
4020 PRINT AT 10,23"ME TEMO QUE 
NO TE PODEMOS DAR MAS CREDITO, Y 
TENDRAS 10 DIAS PARA PAGARNOS 


LAS *"5DBx*1003" QUE AHORÁ NOS DE 
BES." 
4040 STOP 


4050 PRINT AT 10,53 "QUIERES UN C 


REDITO DE *100?" 

4060 IF INKEYS$="" THEN GO TO 40 
60 

4070 IF INKEY$<>"N" THEN LET DB 
=DB+1: LET M=100: PRINT AT 11,19 


3" "5AT 13,103"0.K."z FOR X=1 TO 


50: NEXT X: GO TO 820 

4080 IF DE>0 THEN GO TO 4100 
4090 CLS : STOP 

4100 LET O=M-DBx*100 

41035 PAUSE 100: CLS 

4110 IF 0>=0 THEN GO TO 4200 
4115 IF M=0 THEN PRINT AT 11,05 
"O.K. ¿PERO "3: GO TO 4124 

4120 FRINT AT 10,33"NOSOTROS TOM 
AMOS LAS *"3M 
4122 FRINT AT 11,0; "AHORA, PERO 


Me 
, 


4124 PRINT 
¡ABS 0;"," 
4126 PRINT AT 12,0;"Y ESPERAMOS 
QUE NOS LAS DEVUELVAS EN UN PLAZ 
O DE 10 DIAS.” 

4130 STOP 

4200 PRINT AT 10,2; "COGEMOS LAS 
*"5DBx1005" QUE NOS DEBES, Y TE 
QUEDAN TODAVIA *"303"." 

4210 STOP 

6685 FRINT AT X,G53Ds$ 


"TODAVIA NOS DEBES ?" 


O 


OO Oo.O0O 
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1. Laberinto en tres dimensiones 


En este juego el objetivo es encontrar el camino dentro del laberinto en el que estás 
atrapado, que te transporte hasta un cristal maravilloso: el LODESTAR, 

Cuando estés jugando podrás ver en la parte superior izquierda de la pantalla una 
“vista” de lo que tienes enfrente. Esta “vista” te indica los caminos que tienes abiertos en esa 
posición hacia la izquierda, hacia la derecha o enfrente de ti. 
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También en la pantalla, en la parte inferior, tienes un indicador, “EL LECTOR DEL 
LODESTAR”, que te leerá los datos que salen de los “SENSORES DEL LODESTAR”; este 
indicador te dará información sobre la distancia a la que te encuentras del maravilloso 
“LODESTAR”. 


El 


HL ERA 


MHMUMHNERO. CE MoOolTHATE-NTO 61 
: LO MIRANEDO. HAC E 


1 


. pa a RED: A 
MA MEL: 
PARED Pe, 


RAE TERTF 
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161 
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Verás que la “vista” que tienes desde la posición en la que te encuentras, en la parte 
superior izquierda de la pantalla, varía de una forma rápida y precisa. Cuando escribí el 
juego temí que el mecanismo para crear la “vista”de lo que tienes enfrente fuera demasiado 
lenta, pero al verla trabajar quedé encantado, ya que no es así; te sorprenderás, igual que me 
ocurrió a mí, cuando veas qué rápido trabaja. 

Si encuentras que te has perdido en el laberinto que ha creado el juego para ti, no te 
preocupes. Existe una opción especial para esos casos. 

Esta es la opción “M” (de MAPA). Cuando pulses la tecla “M”, verás un mapa como el 
que hay aquí representado. El te indica dónde estás situado en ese preciso momento; viene 
mostrado por el asterisco (“x”); el laberinto por las equis (“xx”), y el camino que has recorrido, 
por los puntos (*“.”). 

El LODESTAR puede estar en cualquier sitio dentro del mapa; por eso, debes guiar tus 
movimientos por los datos que te indique el LECTOR de los sensores. 

El mapa, aunque no varía excesivamente de juego en juego, sí que lo hace ligeramente en 
cada uno de ellos; por eso, te va a costar un poco de tiempo conocer el juego perfectamente. 

Al empezar a jugar hazlo poco a poco, y no intentes saberlo todo desde el principio, ya 
que te costará familiarizarte con la forma que tiene el programa de representarte las “vistas”; 
pero cuando este método te sea familiar, verás qué bien te ayuda a recorrer el laberinto. 

Te mueves por el laberinto usando las teclas: 


5—Para ir a la izquierda. 
6—Para bajar. 
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7—Para subir. 
8—Para ir a la derecha. 


El número de movimientos que llevas realizados desde el principio del juego te vienen 
indicados en la pantalla, justo debajo de la “vista” que te da el ordenador desde la posición 
en la que estás. No debes abusar del uso de la opción “M”, ya que hay una penalización de 
15 movimientos cada vez que la utilizas. 


También hay otra indicación en la pantalla, justo debajo de la del número de movimien- 
tos. Esta sirve para que sepas hacia qué dirección estás mirando; por ejemplo, supón que 
miras hacia el este y te dice el ordenador que tienes el camino abierto hacia el este; entonces, 
lo único que tienes que hacer es ir hacia adelante, pero si ahora miras desde el mismo lugar 
en otra dirección, imagina que miras hacia el norte, verás que las respuestas del ordenador 
son iguales, pero tus movimientos han de ser diferentes; ya no tienes que ir hacia adelante, 
sino que tienes que ir hacia la derecha. Debes tener cuidado con esta particularidad del 
juego, porque te puedes armar un jaleo monumental. 

Fíjate en las líneas que van desde la 940 hasta la 1010; éstas son las que realmente 
dibujan las “vistas”. Después de cada punto y coma hay varios espacios; éstos hacen que se 
puedan ver con mayor facilidad los dibujos, y de esta manera ver los fallos. Al ordenador no 
le importa que existan espacios dentro de una línea. 

Tampoco estos espacios interfieren cuando el programa se está ejecutando. Por eso es 
aconsejable utilizar esta técnica cuando se quieran realizar gráficos de este estilo. 
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1 REM **e LABERINTO EN ** 
S REM xx TRES DIMENSIONES *x* 
20 60 SUB 530 
3O GO SUB 370 
40 LET M=M+1 
50 LET N=0 
60 PRINT AT 8,03 INK 735 FAFER 
13” NUMERO DE MOVIMIENTO "3m3" " 
¿ IF A$<>"H" THEN FRINT  INK 7; 


PAPER 1;"ESTA MIRANDO HACIA "5A 


gro" 


70 PRINT — INK 253AT 13,03 "NORTE 
:"3 

80 IF A(D+1,E)=S THEN FRINT " 
ABIERTA": IF A$<>"S" THEN LET N 
=N+1 

90 IF A(D+1,E>)=X THEN FRINT " 
PARED  " 

100 PRINT — INK 13"SUR: "3 

110 IF A(D-1,E)=S THEN  PRINT " 
ABIERTA": IF As$<>"N" THEN LET N 
=N+10 


120 IF A(D-1,E)=X THEN FRINT " 
PARED ” 

130 PRINT — INK 33"ESTE: 

140 IF A(D,E+1)=S THEN PRINT " 
ABIERTA": IF A$<>"W" THEN LET N 
=N+100 

150 IF A(D,E+1)=X THEN PRINT *” 
PARED " 


na 
» 


160 PRINT — INK 13"OESTE: “5 

170 IF A(D,E-1)=S THEN PRINT " 
ABIERTA": IF A$<>"E" THEN LET N 
=N+1000 


180 IF A(D,E-1)=X THEN FPRINT ” 
PARED " 
190 FRINT 
R DEL LODESTAR MUESTRA"; 
3100* (Z-D)+(Y-E)3" " 
200 GO SUB 850: REM IMPRESION 


». 


INK 23"EL INDICADO 
FLASH 1 


211 PAUSE 0: LET W$=INKEYS: IF 
W$="" THEN GOD TO 211 
212 IF Wé="M" 


THEN GO SUB 370: 
60 TO 310 el 
215 IF W$<>"m" 
GO SUB 1030 
220 IF As$="N" 
EN GO TO 210 
230 IF A$="S" 
EN 60 TO 210 
240 IF A$="E" 
EN GO TO 210 
250 IF A$="0" 
EN GOD TO 210 
270 IF A$="N" 


THEN LET T$=A5: 
AND A(D+1,E)=X TH 
AND A(D-1,E)=X TH 
AND A(D,E+1)=X TH 
AND A(D,E-1)=X TH 


THEN LET D=D+1 


280 IF A$="S" THEN LET D=D-1 
290 IF As="E" THEN LET E=E+1 
300 IF A$="0" THEN LET E=E-1 


210 LET E(D,E)=46: 1F Z=D AND Y 


=E THEN (GO TO 340 


320 IF ABS (Z-D)<3 THEN IF ABS 
(Y-E)<3 THEN PRINT "ESTAS MUY 
CERCA" 

330 GO TO 40 

340 PRINT "ENCONTRASTE EL LODES 
TAR EN "3?M3" MOVIMIENTOS" 

350 STOF 

370 REM HELP 

380 LET 4(D,E)=42 

490 CLS 

400 INVERSE 1: PRINT "NORTE": P 
RINT 

410 FOR B=15 TO 1 STEF -—1: FOR 
C=1 TO 15 

420 IF A(B,C)=42 THEN PRINT 1 
NK 453"x%"53: GO TO 440 


425 IF B(B,C)=46 THEN PRINT “. 
“53 GO TO 440 
430 FRINT CHR$ 
440 NEXT C 

450 PRINT 

460 NEXT B 

470 PRINT *"SUR": 
480 LET M=M+5 
470 PAUSE 300 
500 CLS 

510 LET A(D,E)=S 
520 RETURN 

520 REM INICIALIZACION 

540 DIM A(15,15): DIM B(15,15) 
550 LET B=INT (RND+*3) 

560 LET Z=14: LET Y=14 

570 IF B=1 THEN LET Y=2 

580 IF B=2 THEN LET Z=2 

590 LET X=68 

600 LET S=32 

610 FOR B=1 TO 15 

£20 FOR C=1 TO 15 

630 LET A(B,C)=X 

640 IF C>1 THEN IF B>1 THEN 1 
F C<1S THEN IF B<15 THEN IF RN 
D>.9 THEN LET A(B,C)=S 

650 NEXT C 

660 NEXT B 

470 LET D=2 

£80 LET E=2 

490 FOR F=1 TO 67 

700 READ B:z READ € 

710 LET A(B,C)=S 

720 NEXT F 


(A(B,0))5 
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730 LET M=-5; LET A$="E": LET T 
$="E": REM INICIO DIRIGIDO HACIA 
EL ESTE 

740 RETURN 

750 DATA 2,2,2,3,2,4,2,5,2,6,2» 
ds 

760 DATA 
4,5,3,6,3 
770 DATA 
8,7,9,9,8 
780 DATA 
5,10,4 
790 DATA 10,3,11,3,12,3,13,3,14 
,3,14,2,7,10 

800 DATA £,10,5,10,4,10,3,10,2, 
10,2,11,2,12 

810 DATA 2,13,2,14,6,11,6,12,6, 
13,6,14,7,12 

820 DATA 14,12,8,12,8,14,9,12,9 
,13,9,14,10,12 

830 DATA 11,9,11,10,11,11,11,12 
,12,9,13,9,13,10 

840 DATA 13,11,13,12,13,13,13,4 
,14,14 

850 IF N=0 THEN LET P=8 

855 IF A$="M" THEN LET A$=T$ 
860 IF A$="N" AND N=1 OR A$="S" 
AND N=10 OR Aé="E" AND N=100 OR 


3,7,4,7,5,7,159,6,59,5,55 
7,3,7,4,7,5,7,6,7,7,75 


9,9,10,8,10,7,10,6,10, 


A$="0" AND N=1000 THEN LET P=5 
870 IF A$="N" AND N=101 OR A$=" 
E" AND N=110 OR A$="0" AND N=100 
1 THEN LET P=1 

880 IF A$="N" AND N=100 OR A$=" 
S”" AND N=1000 OR A$="E"” AND N=10 
OR A$="0D" AND N=1 THEN LET P=2 


290 IF A$="N" AND N=1000 OR A$= 
"S" AND N=100 OR A$="E" AND N=1 
OR A$="0" AND N=10 THEN LET P=3 

700 IF (A$="N" OR A$="S") AND N 
=1100 OR (A$="E" OR A$="0") AND 
N=11 THEN  LET P=4 

910 IF A$="N" AND N=1101 OR A$= 


"S" AND N=1110 OR A$="E" AND N=1 
11 OR A$="0" AND N=1011 THEN LE 
T P=6 


920 IF A$="N" AND N=1001 OR A$= 
"5" AND N=110 OR A$="E” AND N=10 
1 OR A$="0" AND N=1010 THEN LET 

P=7 

930 PRINT AT 0,0; 

940 IF P=1 THEN PRINT Mia 
"a PRINT 
PRINT ' 


ES 
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I 

I 

THEN 

t 

t 

960 IF P=3 THEN 

: 1 

t 

¡ 

970 IF P=4 THEN FPRINT " 

"; PRINT " ! 

"; PRINT " ! 

PRINT " 

¡ 

THEN PRINT " ] 

PRINT 

PRINT "; 

PRINT 

sá I 

990 1F P=6 THEN FRINT " 5 

" PRINT ” 

" PRINT " 

A PRINT 

t 

THEN PRINT " $ 

PRINT " ¿ 

PRINT ” E 

' PRINT ", 1 

FL % » 1 

1010 IF P=8 THEN PRINT ! 

"a PRINT ' | 

FRINT 

6.5 I 

ESE 

1020 RETURN 

1030 1F M3="7" OR A$="M" THEN L | 

ET A$=T4 | 
1040 IF W$="6" AND T$="N" OR W$= 

"8" AND T$="E" OR W$="5" AND T$= | 

"0" THEN  LET As="S" 
1050 IF W$="4" AND T$="S" OR W$= 
"8" AND T$="0" DR W$="5" AND T3= 

"E" THEN LET A$="N" Í 
1060 1F W$="8" AND T$="N" OR W$= 
"5" AND T$="S" OR W$="46" AND T$= 

"0" THEN LET A$="E" ¡ 
1070 IF W$="5" AND T$="N" OR W$= 

"8" AND T$="5" OR W$="4" AND TS 
"E" THEN” LET As="0" ! 
1080 RETURN Ñ 


2. Apisonadora 


Este juego es muy violento, pero está tan alejado de la realidad que resulta inofensivo. 
Supón que eres el conductor de una apisonadora, te has vuelto loco, y a partir de ahora 
te vas a dedicar a aplastar a toda la gente que veas por delante. ¡A por ellos! 


a PA A E EN 


Cuanta más gente aplastes, mayor será tu puntuación. 


( 


e Sr 2227 EBREFES ES 
[_) => e GRAFICO E 
Mo RAFI F 
O) Yooereooo ERAFICO 
1 Leo BRAFTOD H 
Yoo mm IARAF IEA TI 


4 ' 
o | 10 REM ** APISONADORA *x 150 IF B=29 THEN GO TOD 200 O 
30 RESTORE : 60 SUB 500 160 FOR N=1 TO 2: IF (C-N=A OR : 
O |. 40 IF INKEY$<>"" THEN (GO TO 4 | C-N=A8+1) AND (D=B+1 OR B=E+2) TH: O 
10 EN GO TO 400 
oO! 50 LET ME=0: LET MS=ME: PAPER 170 IF M=1 THEN LET B=B+1 ue 
¡ 6: BORDER 6: CLS 200 GO TO 100 
J 70 IF ME+MS=R THEN 60 TO 450 300 REM **HOMBRE ESCAPADO+** : 
O |. 75 LET A=5: LET B=0 310 LET ME=ME+1 Es) 
¡80 LET C=21: LET M=0: LET D=IN | 320 CLS : GO TO 70 
O | T (RND*11)+5 400 REM **HOMBRE APLASTADOx** o 
¡90 PRINT  INK 75 PAPER 13AT 0, 410 LET MS=MS+1 
o | 93 "ESCAPADOS"5ME5AT 0,163 "APLAST 420 PRINT  INK 1308T A,B3" mz! 
' ADOS"35MS INK O3AT A+1,B3"::"53 INK 134T A | O 
l- 100 PRINT  INK 13AT A,B3" £03 +1,B413 00500 id 
O! INK 05AT A+1,B3"::"5 INK 1530T A 430 PRINT FLASH 13AT A+2,B3"SsP Mo) 
E LAT!": FOR N=0 TO 100: NEXT N | 
O 110 PRINT  INK 23AT 0-2,D3 "4" 440 CLS : GO TO 70 
1 111 IF INT (0/2)=C/2 THEN LET 450 REM *XFINAL DEL JUEGO** o) 
¡As=t 455 PRINT FLASH 15 BRIGHT 13 P! 
O 1. 112 IF INT (C/2><>0/2 THEN LET | APER 73 INK O5AT 9,1053"GAME OVER | O 
1] As$= 1) a ! 
| 115 PRINT  INK 2547 C-1,D5M$3 1 460 PRINT AT 15,03"SE ACABARON | y 
¡ NK 05AT C,D3" ." LOS "3R3" HOMBRES. "3*ME;" ESCAPA | 
l 120 IF INKEY$<>"" THEN LET M=1 | DOS Y "¿MS;" APLASTADOS" 
o l. 140 LET C=C-1: 1F C=3 THEN GO 470 INPUT "OTRO JUEGO?"3A$ mo) 
' TO 300 480 IF As$="S" THEN RUN ! 
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490 
LB : 
500 
510 
520 


INK O: PAPER 7: BORDER 7: CE 
GO TO 490 

REM xx INSTRUCCIONES 

PRINT "AFISONADORA " 


PRINT ,, "INTENTA AFLASTAR T 


ANTOS HOMBRES COMO PUEDAS, PULSA 
UNA TECLA PARAQUE TU APISONADORA 
SE MUEVA, PE-RO HAZLO EN EL MOM 


ENTO JUSTO." 
530 INPUT "No DE HOMBRES?"5R 
540 INK 0 

9000 REM ** U.D.G 

9010 FOR M=1 TO 9: READ As 

9020 FOR N=0 TO 7: READ A: POKE 

USR A$+N,Az NEXT Nz NEXT M 

9030 DATA "A",124,66,68,124,68,2 


55,299,255 


9040 DATA "B",51,123,207,204,120 
,48,0,0 

9050 DATA "C",0,16,16,16,16,255, 
255, 255 

9060 DATA "D",236,236,222,31,30, 
12,0,0 

9070 DATA "E",0,0,255,0,0,255,0, 
O 

9080 DATA "F",28,28,8,62,93,93,9 
3,93 

9090 DATA "G",20,22,16,16,48,0,0 
la) 

, 

9100 DATA "H",20,52,4,4,6,0,0,0 

9110 DATA "1",32,32,0,32,4,4,0,4 
9120 RETURN 
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3. Piedra, papel, tijeras 


Este es un juego aconsejado a los más pequeños de la casa. Debes hacer tu elección 
rápidamente; di una entre ellas —piedra, papel o tijeras—. ¿Podrás vencer al ordenador? ¿Te 
atreves a luchar contra él? 

Si te has decidido y has aceptado el reto, ahí van las instrucciones. 
Todo lo que tienes que hacer es introducir: 


0—Para la piedra. 
1—-Para el papel. 
2—Para las tijeras. 


Después, siéntate a ver lo que ocurre. 


o 1 REM 4% PIEDRA. PAPEL. sk | 35 LET ASINT (RNDAZ) o) 
| 2 REM xx TIJERAS. ** 40 PRINT AT 3,53 "PARTIDA No.- | 
'0) 7 BORDER 2 "sn: PRINT "TAB 23 "PIEDRA=0: PAP O 
10 LET z=0: LET h=0: LET t=0 ER =1: TIJERAS=2 
1 15 PRINT  INK 353071 3,143"RSP"5 45 INPUT — INK 753"QUE ELIGES "3 | 
O INK 1587 12,1; "EL JUEGO DE LA P | €: CLS 10 
| JEDRA, TIJERAS “*"Y PAPEL" 47 IF C>2 THEN GO TO 130 
O! 20 PRINT AT 18,1; "PULSA UNA TE 50 IF C=A THEN GO TO 65 NO) 
¡CLA PARA CONTINUAR": PAUSE O: CL 55 IF C<A THEN GO TD 70 | 
Ss 50 IF C>A THEN 60 TO 75 
O 25 INPUT "CUANTAS PARTIDAS QUI 65 BEEP .1,0: PRINT AT 11,113" 1 o) 
' ERES JUGAR? "36 IGUALES": LET T=T+1: GO TO 80 
o! 30 FOR N=1 TO G: CLS 70 BEEP .3,30: PRINT AT 11,123 1 O 
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"YO GANO": LET Z=2+1: GO TO 80 

75 BEEP .5,-10: PRINT AT 11,12 
¡"TU GANAS": LET H=H+1 

80 PAUSE SO: NEXT N 

82 CLS 

85 BEEP .5,15: PRINT AT 5,83"P 
UNT. FINAL": PRINT 

87 INK 3 

90 PRINT TAB 3; "SPECTRUM- "37; 
" PARTIDAS" 

95 PRINT TAB 33 "HUMANO -— "5H;5 
" PARTIDAS" 

100 PRINT TAB 35"EMPATES - "3T5 


105 IF Z>H THEN PRINT TAB 
ANO EL ORDENADOR" 


5 
110 IF Z<H THEN PRINT TAB 5;5"G ¡ 


ANO EL HUMANO » 


112 IF Z=H THEN PRINT TAB 53"E 
MPATE » 

115 PRINT "QUIERES OTRA PARTIDA 
? "3A$: CLS 


120 IF A$="SI" OR A$="si"” OR A$ 


="S" OR A$="s" THEN GO TO 10 
125 PRINT — INK 13"MUY BIEN ";: 
GO TO 125 


130 PRINT "APRENDETE LAS REGLAS 
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4. Ladrillos y cemento 


Este programa es parecido al BREAKOUT, hay una versión de él en este libro; la única 
diferencia es que todo está al revés. Arriba hay una pared hecha de seis hileras de ladrillos, 
que, por cierto, están muy bien hechas. Esta pared está bajo el ataque de una pelota parecida 
a un diamante azul. 

Ahora voy a explicar las diferencias: El objetivo en el BREAKOUT era conseguir que la 
bola rompiera todos los ladrillos. En este juego el objetivo es que la bola no llegue a la 
pared. 

Para evitar que la pelota llegue a su destino, la pared, tienes un extraño objeto parecido 
a una cesta con el que tienes que dar a la bola. 


A a a E O 
OR DR ST CS A A DI BR 
1) MGCEUGA FOBSACA GANGA HOS2DGÍ MAA M4 DD ARGGOAR E5RERAA BREA! LORA MESE 

an ML PASRSDO CEEI CUELA BLADES Er] Era CUA 00d EA a Ita [e $1 7 Abal am nn BH a e] 
ua BESOOGS ECUNIAS GULOGOO ESUUORO UEOUENO HREDAAD BSCEGEL BSOUUOS BFSGES] ESBSUEL DIDOEDD ESIIDAE OSIDOH HEAR ESUDS 17 Uma 
1 a ES IOGOEAA DRSUEDI FOCUJDÓ ADUNNLA EU2UES ESOU200 HU2005d 138040) ROORGLD DQIONIO DOPSRBA DOBROR) DAMALOO DEESOIS 2004 mua Bl 
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Si la bola llega a la pared, romperá ésta casi por la mitad; así que tienes que tener 
cuidado, ya que si la bola llega a partir la pared totalmente el juego se acaba. 
Mueves la cesta con las teclas: 


8—Para ir a la derecha. 
5—Para ir a la izquierda. 


La bola es el gráfico A, la cesta son los gráficos B, C y D; y los ladrillos son el grá- 
fico E. 

Fijate en la manera que usa CHR$ 16 y CHRY 1. Se usa de esta forma para combinar la 
información del color y de la sombra en una cadena simple (B$). Esto significa que INK 2 no 
tiene que usarse en la línea 170. Usando los colores de esta forma es mucho más rápido que 
usarlos dentro de una sentencia PRINT, pero el único fallo es que esta pequeña trampa no se 
puede usar siempre. 


L 
¡E 


MO | RAFI A 


A A GRAFICO Bo [] 
Mo GRAFICO E ¡A 


Í ' 
' ] 
| REM ** LADRILLOS Y CEMENTO *x LET AS=A0$+A$ | 
1 GO SUB £00 1 

O | 5 LET HS=0 73 PAPER 7: BRIGHT 1: CLS o 
| 10 LET A=10 80 PRINT AT 0,03 INK 254$ ! 

O | 15 LET SC=0 85 PRINT AT 1,03 INK 2345 o) 
1 20 LET F=1 90 PRINT AT 2,03 INK 234% 

0) 30 LET G=1 100 LET A=A+2x*(INKEYS$="8" AND A 1 
40 LET C=21 <26)-2* (INKEY$="5" AND A>0) 10 
| 50 LET D=31 110 PRINT AT 7,853 INK 45% gut) 

O | 55 LET As$="*1" " o) 
60 FOR Z=1 TO 5 120 PRINT AT C,D3" " 
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130 IF C>20 THEN  LET F=-F: BEE 


P 008,30 


I 
t 
O | 140 IF D>30 OR D<1 THEN LET G= 
l|-G: BEEP .008,20 
o | 150 LET C=C+F 
¡160 LET D=D+G 
¡ 170 PRINT AT C,D3E$ 
O | 180 1F C=1 THEN GO SUB 500 
185 IF C<>7 THEN GD TO 200 
O | 190 IF D=A+2 OR D=A+3 OR D=A+4 
THEN LET F=-F: BEEP .008,50 
200 1F C=0 THEN PRINT AT 10,11 
O | 5 FLASH 13 INK 23"GAME OVER"¿AT 
1112,83"TU PUNTUACION: "350: GO TO 
o! 550 
210 LET SC=SC+27: GO TO 100 
6 | 500 IF AS(D+1)=" ” THEN RETURN 
| 510 LET A$(D+1)=" " 
O | 520 LET F=-F 
' 530 PRINT AT 1,03 INK 230%: BEE 
o | P_.008,15: BEEP .008,35 
| 540 RETURN 
550 IF SC>HS THEN LET HS=SC 
O | 560 PRINT AT 1,75 FLASH 13 INK 
1 33 "MAX. PUNT. ES "5HS 
O | 570 FOR G=1 TO 50 STEP 2: BEEP 
| 08,6: BEEP .08,-G: NEXT G 
; 580 CLS 
O | 590 GO TO 10 
600 FOR A=0 TO 7 
O | 610 READ B 
Ai 
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£20 POKE 
£30 NEXT 
690 DATA 
60,24 
700 DATA 
55, 248 
710 DATA 
5,0,0 
720 DATA 


USR 
A 


"A"+A,B 


POKE USR 
NEXT A 
FOR A=0 TO 7 
READ C 

POKE USR "C"+A,C 
NEXT A 

FOR A=0 TO 7 
READ C 

POKE USR "D"+A,C 
NEXT A 

FOR A=0 TO 7 
READ C 
POKE USR 
NEXT A 
LET BS=CHR$ 16+CHR$ 1+"0.": 
GRAFICO A 

RETURN 

DATA 254,254,254,0,239,239, 


"Bs A, B 


"EY+A,C 
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5. La máquina de Clark 


Este programa está escrito por David Clark; ya sabes de dónde viene el título. Su 
funcionamiento es parecido al de esas máquinas tragaperras que han invadido todas las casas 
de recreativos. 

En ésta, en lugar de haber frutas, hay números y signos aritméticos: 


0, 1, 2, 3, 4, 5, 6, 7, 8, 9, =) +, =. 


Como esta máquina es un poco antigua, todavía va con manivela; no es electrónica, así 
que el ordenador, antes de empezar cualquier partida, te pedirá que tires de la manivela; para 
ello lo único que tienes que hacer es dar a una tecla cualquiera. 

Verás que las ruedas de los números giran de una manera muy vistosa, y que después de 
un pequeño espacio de tiempo se pararán. Tus premios dependerán de la combinación que 
tenga la línea ganadora. Esta línea es la del centro. 

Al empezar a jugar tienes cinco dólares, y cada partida te cuesta un dólar. Si tienes mala 
suerte, puede llegar un momento en el que se te acabe el dinero. Cuando llegue ese momento, 
la máquina te lo dirá y te verás obligado a dejar de jugar. 

Si quieres cambiar la cantidad de dinero, ésta está en la variable m (m de money, dinero 
en inglés). Si quieres cambiar el precio de una partida, fíjate en la línea 31, y cambia el 1 por 
el número que quieras. También puedes variar los premios; éstos están en las líneas 270, 280 
y 290, 


o 1 REM ** LA MAQUINA +** 10 LET M=5 0) 
** DE CLARK kx 15 LET A$="0123456789-+=" 
o! S BRIGHT 1: CLS 20 LET B$="0987654321=+-" a 


30 LET C$="=+10987654321" 
31 LET M=M-.1 


32 PRINT AT 7,10; FLASH 15 INK 
15 "DINERO= "3 
34 LET M$=STR$ Mi: PRINT "$";M$ 


3 

35 IF M=INT M THEN FRINT ".O" 
, 

36 PRINT "0"3AT 2,7; 
BRIGHT 13 INK 93 PAPER 
PUJA LA MANECILLA" 

37 IF INKEY$="" THEN 

38 PRINT AT 2,73" 


FLASH 1; 
RND*73 "EM 


GO TO 37 


39 
40 


GO SUB 300 
FOR A=1 TO (RND+1)x10 

45 BEEP .007,3xA 

50 PRINT AT 10,145 INK RND*4;A 
S(1)03"REU3BS (103 "50508 (1) 

60 PRINT AT 11,143 INK RNDx*4;3A 
$3 "EMBS(2)3 M5 "530$ (2) 

70 PRINT AT 12,143 INK RNDx4;A 
SID) MEMBROS 13) 

80 LET A$=0$(13)+A$( TO 12) 

90 LET B$=B$(13)+B$( TO 12) 
100 LET C$=C$(13)+C0$( TO 12) 
105 BEEP .007,-3 
110 NEXT A 
190 FOR A=1 TO RND*10 
200 PRINT  INK RND*63AT 10,18;C 

$(1)30T 11,19850$(2)3AT 12,1850$( 
3) 
230 LET C$=C$(13)+C$( TO 12) 


240 BEEP .1,4xA 


260 NEXT A 

270 IF A$(3)=C$(3) THEN LET M= 
M+.2: BEEP .5,5: BEEP .5,25: BEE 
P. .5,20: PRINT  INK 63 PAPER 0; 


FLASH 13AT 18,73 "BIEN HECHO!" 

280 IF A$(3)=B$(3) THEN LET M= 
M+.2: BEEP .5,10: BEEP .5,3: BEE 
P .5,10: PRINT  INK 13 FLASH 13A 
T 18,7;3"HAS GANADO!" 

290 IF C$(3)=B$(3) THEN LET M= 
M+.2: BEEP .5,15: BEEP .5,20: BE 
EP .5,15: PRINT  INK 23 FLASH 15 

PAPER 63AT 18,73"MAS DINERO!" 

292 FOR Z=-5 TO 15: BEEP .007,2 
*Z: BEEP .007,50-2x*Z: NEXT Z: PR 
INT AT 18,7;" “ 

295 IF M=0 THEN PRINT AT 19,05 


FLASH 13 INK 2;3"TE QUEDASTE SIN 
DINERO": STOP 

299 GO TO 31 

300 FOR A=7 TO 15 

305 BEEP .007,3xA 

310 PRINT — INK RNDx*x65AT A-1,24;5 
"Y"3 INVERSE 1;AT A,243"V" 

330 NEXT A 

340 FOR A=14 TO 6 STEP -1 

345 BEEP .007,3*A 

350 PRINT — INK RND*63AT A+1,24; 


" "3 INVERSE 13AT A,243"+" 
FOR Z=1 TO 4: NEXT Z 
NEXT A 
RETURN 


o a 
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6. Suicida 


Este juego lo tienes que usar cuando sientas gran necesidad de suicidarte; cuando tengas 
una depresión, o cuando después de haber tecleado en el Spectrum un programa muy largo 
haya habido un apagón y se te haya borrado todo, un fallo del microdrive, etc. 

Además, para suicidarte, el ordenador te da a elegir en qué lugar te gustaría más: el 
ordenador te pregunta si prefieres tirarte desde un acantilado o desde un precipicio. Esta 
elección la debes hacer según tus gustos personales; si te gusta más el mar que la montaña, te 
tiras desde el acantilado y si te gusta más la montaña, entonces te tiras desde el precipicio. 

Pero no creas que suicidarse es tan fácil; ya verás todas las vicisitudes que tienes que 
pasar para poder acabar con tu vida. Si el resultado del salto no ha sido el esperado, tu 
muerte, tienes una segunda oportunidad. 


— 
O 1 REM *%* SUICIDA X*x* 19 PRINT AT 13,03 "A O 
! 7 BORDER 6: FLASH 1 AH IEAA RANA AAA RARA l 
e! 9 PRINT AT 7,03 “dx 20 FLASH O: PAUSE 200: CLS to 
LARA AAA AAN 30 PRINT AT 10,05" Desde donde 

' 10 PRINT AT 8,0;"x PROGRAMA ES prefieres tirarte:"””*TAB 83"x*Un 

O | PECIALMENTE DEDICA*" acantilado. "¡AT 14,15;"0""*TAB ¡O 
12 FRINT AT 9,0;"x*DO A AQUELLA | 8;"x*Un precipicio." h 

Oo | S PERSONAS QUE su-*" 40 INPUT J$: CLS | 0) 
l 14 FRINT AT 10,0;"*FREN EN CIE S0 INPUT "Desde que altura?"3h 
; RTOS MOMENTOS LA * : CLS ¡ 

O; 15 PRINT AT 11,0; "*NECESIDAD D 50 INK O (0) 
E RECURRIR AL SUI -x" 70 IF h<=6 THEN LET A$=" NO S 

O: + 18 FRINT AT 12,0;"*CIDIO PARA | EAS TONTO, DESDE ESA ALTURANO TE | y 
' EVITAR SUS PROBLEMAS” PUEDES MATAR. ": PRINT— FAPER 2; 
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AT 11,03: FOR N=1 TO Sl: FRINT A 
$(ND)j3: BEEF .05,N: NEXT N:z GO TO 
50 

80 IF J$="ACANTILADO" THEN GO 
TO 100 

90 FOR N=0 TO 31: FPRINT 3"_)"3 
: NEXT N:z PRINT : GO TO 110 


100 FOR N=0 TO 15: 
31 NEXT ON 

110 PRINT AT 5,03" ESTAS EN UN 
"33$3" A UNA"””* "ALTURA DE "3H3" M 
ETROS.” 

120 PRINT AT 10,43"PULSA ENTER 
PARA SALTAR": INPUT LINE Es 


PRINT 


E) 
, a 


130 FOR S=40 TO 30 STEF —-.5:1 BE 
EP .05,5: NEXT S: CLS 

140 IF J$*="ACANTILADO" THEN GO 
TO 270 


150 LET A=INT (RND*7) 


150 IF A=1 OR A=4 THEN GO TO 2 
50 

165 PRINT— INK 2;"TONTO" 
170>BEEF .5,30 

180 IF J$*="ACANTILADO” THEN GO 
TO 290 

190 IF A=0 THEN  FRINT " CAISTE 


EN OTRA TERRAZA DEL PRE-CIPICIO 

ASI QUE SALTA OTRA VEZ." 

200 IF A=3 THEN PRINT " ATERRI 
ZASTE EN UNA CANDA. INTEN-TALO OT 
RA VEZ." 

210 IF "SOLO TE 


A=4 THEN  FRINT 
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HAS ROTO UNA PIERNA.HAZ-LO BIEN 

LA PROXIMA VEZ." 

220 IF A=5 THEN FRINT " ATERRI 
ZASTE EN OTRA PERSONA.NO HAGAS T 
RAMPAS. " 

230 IF A=2 THEN FPRINT " 

EN UN CAMION. REPITE!!." 

240 GO TO 120 

250 BEEP .1,0: PRINT AT 3,03 "EN 
HORA BUENA!. AHORA ESTAS ESPAR-CI 


CAISTE 


DO POR EL SUELO COMO SI FUERASDE 
SAYUNOD DE PERROS. BUEN SALTO. ": 
GO TO 320 

260 BEEP .1,0: BORDER O: PRINT 
INE 2346T 15,12; "SPLASH! !'": GO T 
O 330 

270 LET R=INT (RND*4): 1F Rx<>3 
THEN 60 TO 165 

280 GO TO 260 

290 IF R=0 THEN FRINT " LOS TI 


BURONES TE HAN DEJADO ME-DIO MUE 
RTO. INTENTALO OTRA VEZ." 

300 IF R=1 THEN PRINT "CAISTE 
EN UNA BARCA.RAPIDO ECHA-TE AL 
AGUA Y AHOGATE." 

310 IF R=2 THEN FRINT " SE TE 
HAN ENGANCHADO LOS PANTA-LONES E 
N UNA FIEDRA.TIRALOS." 

320 69 TO 120 

330 FRINT  INK 
ELO TE ESFERA." 


13AT 20,8;3"EL CI 


7. Squash 


Como ya estarás cansado de jugar al BREAKOUT, aquí hay un juego parecido, pero 
más rápido y que entraña mayor dificultad: es el SQUASH. 


00 
¡1 


E 


OLA. EM ALEA: 


L] 
LL) 
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0) 


Mueves tu raqueta con las teclas: 


M-—-Para ir a la derecha. 
N—-Para ir a la izquierda. 


Verás que en este juego el bote de la pelota es muy diferente que en el BREAKOUT. 
En cada juego tienes sólo tres bolas, y tu puntuación dependerá de cuánto tiempo estés 
jugando con la bola antes de que se escape por detrás de ti. Cuanto más tiempo dures, 
mayor será la puntuación. Tu puntuación aumenta 245 puntos por cada golpe que des a la 


yo] 
o, 
o 
pl 
ES 


L) 


BRAFITOO HE 


RAF TEL 


REM 4% SUbASH es 150 LET C=C+(INKEY$="M")-(INKEY | O 
GO SUB 3460 $="N") 
LET PUNTOS=0 160 IF C<ABS A OR C>12 THEN 60|Q 


LET D=1 

LET G=0 

LET A=1: LET B=1:2 
LET E=1: LET F=1 
PRINT AT 15,0; FLASH 1;5"EOL 
JUEGO> "3 INVERSE 1;5D 
PRINT AT 0,03 INK 253": 

0 
FOR X=A TO 9 
PRINT O INX 23%e"3TAB 143 "4x 


1 
3 
4 
5 
7 

10 


LET C=7: 


NEXT X 


TO 180 
170 PRINT AT 10,C-15 


172 IF E=92 AND C<>F AND C+ABS A 
X<>F THEN GO TO 300 

1735 LET G=G+ABS A 

180 PRINT AT E,F3" " 

190 LET E=E+A 

200 IF E=ABS A OR E=92 THEN LET 


INK 470 vs 


A=-A: BEEP .007,30: LET PUNTOS= 
PUNTOS+245: FPRINT AT 0,1463 INVER 
SE 13 INK 33"FUNTOS: "3FUNTOS 


1 
1 
' 
| 
1 
j 
1 
1 
1 
I 
| 
1 
I 
I 
! 
' 
' 
I 
l 
! 
I 
1 
1 
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210 LET F=F+B 

220 IF F=ABS A OR F=13 THEN LE 
T B=-B: BEEP .007,10: LET PUNTOS 
=PUNTOS+245: PRINT AT 0,163 INVE 
RSE 13 INK 33"PUNTOS: "¿PUNTOS 
230 PRINT — INK 13AT EsF3 o" 

35 IF E=9 THEN LET B=SGN Bx*(I 
NT (RND*RND)+AES A) 

240 GO TO 140 

310 IF D<4 THEN PRINT AT 13,05 
FLASH 1í PAPER RND*73 INK 95"BO 
LA EN JUEGO> "; INVERSE 13D 

315 LET D=D+1 : 

320 FOR G=1 TO 50: BEEP .01,6: 
NEXT G 

340 IF Dx4 THEN CLS : GO TO 10 
345 PRINT AT 20,05 FLASH 13 INK 


2; PAPER 63"SE TERMINO EL JUEGO 
1"s FOR G=50 TO O STEP —.51 
.005,6: NEXT G 


350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
0,0 
460 
1255, 


RUN 

FOR Z=1 TO 3 
READ Z$ 

FOR G=0 TO 7 
READ M 

POKE USR Z2$+6,M 
NEXT 6 

NEXT Z 

RETURN 


BEEP 


DATA "A",63,573,63,0,0,0,0,0 
DATA "B",252,252,252,0,0, 


DATA "C",60,126,255,25 
126,60 


cn 


, 
o, 


, 
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S. Graffiti 


Este programa sirve para que uses el ordenador como un juego que había hace unos 
años, llamado TELESKETCH. 
Este juego consiste en dibujar en la pantalla del ordenador todo lo que te dé la gana. 
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Las opciones de este juego son: 


u—Para subir el punto que dibuja una unidad. 

d—Para bajar el punto que dibuja una unidad. 

I—Para mover el punto que dibuja una unidad hacia la izquierda. 
r—Para mover el punto que dibuja una unidad hacia la derecha. 
c—Para cambiar la posición del punto que dibuja, sin dibujar nada. 
n—Para borrar la pantalla. 


a a a e a e 


1 REM ** GRAFFITI +*x IF INKEY$="D" THEN 
7 BORDER 4 

10 PRINT AT 6,12; "GRAFFITI"; AT IF INKEY$="I" THEN 
17,13"UNA RUTINA GRAFICA DE UTIL 
IDAD": PAUSE 100: CLS IF INKEYS$="C" THEN 

15 BORDER 7: PRINT AT 3,23"TEC 
LEE LAS COORDENADAS X E Y": GO S IF INKEY$="N" THEN CLS 
UB 65: CLS GO TO 25 

17 BORDER O: GO SUB 70 INPUT "X "3X3" Y "5Y2 RETUR 

20 PRINT "TECLEE LA DIRECCION 

(A,B,D,1)"* "FULSE C FARA VOLVER PRINT "QUIERES EL PAPEL: 
A EMPEZAR"” "FULSE N PARA BORRAR | >, "BLANCO (0)"**”, "NEGRO (7)": 
" PUT P 

25 PLOT X,Y 73 IF P=0 THEN 60 TO 85 

27 IF INKEYS$="" THEN GO TO 27 80 IF P=7 THEN (GO TO 90 

30 IF INKEY$="4" THEN LET Y=Y 85 PAPER O: INK 7: GO TO 95 
+1 90 PAPER 7: INK O 

235 IF INKEYS$="B" THEN LET Y=Y 95 CLS : RETURN 


4 
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9. Show aéreo 


Cuando estés cansado de apostar el dinero (que te ha costado grandes sudores el 
ganarlo) en los caballos, o en las carreras de galgos, apuesta en los aviones con este 
programa. 

Sigue las instrucciones, y después verás qué tal suerte tienes en la carrera. 
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Después de unos momentos de gran suspense, en los que el corazón casi se te para de la 
emoción, acaba la carrera, y, si has tenido suerte, habrás ganado la apuesta. 


a e = 7 
Y) 
[ 
¡CS 
HER oo BREAFTICO 
ls 
==) 
[] 
¡A 
T 

0) 10 REM ** SHOW AEREO *x 100 BEEP .007,G: BEEP .006,50-6 : O 
¡; 20 GO SUB 1000 110 NEXT G 
¡30 INPUT INK 25 FLASH 13 "QUE 120 PRINT AT 4,43" E 

O ; AVION (1 TO 6) GANARA?"5A 130 FOR H=1 TO 6 
40 IF AX1 OR A>6 THEN GO TO 3 140 LET A(H)=A(H)+RND | 

o:'0o0 150 PRINT AT 5+2*H,A(H)5 INK H3 : O 
¡45 PRINT AT 2,03 INK 33 INVERS | " «." ' 

o ' E 13"HAS APOSTADO EN EL AVION "3 160 IF A(H)>25 THEN 60 TO 190 ¡y 
A 170 NEXT H 
¡50 PRINT AT 0,05 "TIENES "¿DINE 180 GO TO 130 

O 1 RO3" $" 190 PRINT AT 12,05 INK 23"Y EL 1: O 
60 INPUT "CUANTO APUESTAS? ";A | GANADOR ES EL "5H 

oO | PUESTA 200 IF H=A THEN PRINT "*"Y TU | y 
¡70 IF APUESTA>DINERO OR APUEST | LO ELEGISTE!!": BEEP 1,3: BEEP . 

; AX1 THEN GO TO 60 5,30: BEEP 1,3: LET DINERO=DINER | 

O | 75 LET DINERO=DINERO-APUESTA O+INT (2.7*APUESTA) o 
¡76 PRINT AT 0,05 INK 1;"TE QUE 210 IF H<>A THEN PRINT *>"Y TU: 

O ¡| DA "¿DINERO;3" $" NO LO ELEGISTE!!":z BEEP .1,30: ¡O 
77 PRINT AT 2,05 INK 35 INVERS | BEEP .5,10: BEEP 1,30 

o / E 15"HAS APOSTADO "5APUESTA5" $ 220 CLS e 
EN "zaz" " 230 IF DINERO>0 THEN GO TO 30 
| BO PRINT AT 4,45 FLASH 13 PAPE 240 PRINT FLASH 13 INK 43**"Y 

O ¡| R 23 INK 653 "PREPARADOS" ADEMAS ESTAS ARRUINADO!!!" O) 
¡85 DIM A(6) 250 STOP 

oi 90 FOR G=1 TO 50 1000 RANDOMIZE A 
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1005 FOR G=0 TO 7 1035 LET DINERO=100 


i 
' 
O 
O | 1010 READ M 1040 RETURN 
1020 POKE USR "A"+G,M 1050 DATA 16,24,156,255,156,24,1 
¡ 1030 NEXT G 5,0 O 


200 


10. Caníbales 


Ahora estás en una isla poblada sólo por caníbales locos, que, aparte de estar locos, 
están hambrientos, y al haber visto tu jugosa carne blanca, te van a perseguir hasta que te 
den caza y hagan de ti un buen asado. 


JODo0O 
ÚJ Jl dl U) 


E 


Pero como el hambre ciega a estos caníbales, su inteligencia se ve dominada por el 
instinto. Es más, yo diría que estos caníbales son un poco idiotas. Así que, cuando te están 
persiguiendo, no se fijan en lo que tienen bajo sus pies. 

Tú puedes usar esta estupidez para vencerles, ya que les puedes atraer hacia los agujeros 
que tiene la isla y de esta forma acabar con ellos. 

Los controles son: 


A—-Para subir. 
S—Para bajar. 
K—-Para ir a la izquierda. 
L——Para ir a la derecha. 


Cualquier otra tecla para el juego. Debes tener cuidado, porque el muñeco se sigue 
moviendo en la última dirección en que le dejaste, es decir, que no hace falta que estés 
pulsando la tecla constantemente; el ordenador seguirá en el camino que iba hasta que tú le 
ordenes lo contrario. 


Ñ 
E, 


Ti 
GA 


PJ E e GRAFICO E 
¡> E RR GRAFICO E 


Ó -=--- GRAFICO 6 


1 REM +* CANIBALES *x ZOMBIE=01 LET GO=4 


NO OLVIDES JUGAR EN *minuscul as* 40 POKE 23560,0 
5 RANDOMIZE 100 GO SUB 1000 O 

10 DIM z (30,2) 110 GO SUB 3000 

11 LET HI=0 120 GO SUB 2000 


IF MEN>2 THEN PRINT AT 0,2 


20 GO SUB 9000 
25 LET men=31 LET puntos=0 
30 LET LEFT=0: LET MAX=20: LET 


MEN>1 THEN PRINT AT 0,3 


15 LET rand=0.1 


202 


150 IF MEN>O THEN PRINT AT 0,3 
15 " (MM 

150 PRINT AT 0,05 "PUNTOS: "5PUNT 
os 

170 PRINT AT 0,15; "MAX: "5H1 

200 LET A=PEEK 235360 

205 LET TX=PX: LET TY=PY 

210 IF A=97 THEN PRINT AT PY,P 
X3" "z LET PY=PY-1t GO TO 260 
220 IF A=115 THEN PRINT AT PY, 
PX;" LET PY=PY+11% GO TO 260 
230 A=107 THEN PRINT AT PY, 
PX" LET PX=PX-11 GO TO 260 
A=108 THEN PRINT AT PY, 
LET PX=PX+12 GD TO 260 
TO 300 

260 PX<1 OR PX>30 OR PY<2 OR 
PY>20 THEN GO TO 4000 

270 IF SCREENS (PY,PX)<>" " THE 
N 60 TO 5000 

280 PRINT AT PY,PX3 "ot" 

300 LET NUM=0 , 

305 IF NUM>GO THEN GO TO 200 
310 LET ZOMBIE=ZOMBIE+1: IF ZOM 
BIE>MAX THEN LET ZOMBIE=1 

320 IF Z(ZOMBIE,1)=0 THEN GO T 
DO 310 

330 LET ZX=Z(ZOMBIE,1): LET ZY= 
Z(ZOMBIE,2):2 LET TX=ZX1a LET TY=Z 
Y 
340 
350 
360 
370 
380 
390 
400 
410 


LET DX=0: LET 
IF ZX<PX THEN 
IF ZX>PX THEN 
IF ZY>PY THEN 
IF ZYXPY THEN 
LET ZX=ZX+DX: 
LET NUM=NUM+1 
IF SCREENS (ZY,ZX)=" 
G0 TO 500 
420 IF SCREENS$ 
N 60 TO 305 
430 IF 2ZX=PX AND ZY=PY THEN GO 
TO 7000 
440 LET Z(ZOMBIE, 1)=0 
450 PRINT AT TY,TX3" " 


DY=0 

LET DX=1 
LET DX=-1 
LET DY=m-1 
LET DX=1 
LET ZY=ZY+DY 


" THEN 


(2Y,ZX)="""" THE 


460 LET PUNTOS=PUNTOS+11 PRINT 
AT 0,0;"PUNTO: "¿PUNTOS 
470 LET LEFT=LEFT-12 1F LEFT=0 


THEN 60 TO 8000 

480 FOR N=1 TO 10: BEEP .O1,N2 
NEXT N 

485 LET GO=1+INT (LEFT/S) 

490 GO TO 305 

500 IF TX>31 THEN LET TX=31 
501 IF ZX>31 THEN LET ZX=31 
502 PRINT AT TY,TX3" " 


| s1)=1: 


510 PRINT AT ZY,ZX; 
Kris" 

520 LET Z(ZOMBIE,1)=ZX3 LET Z(Z 
OMBIE, 2) =ZY 

525 BEEP .02,30-LEFT 

530 GO TO 305 

1000 PAPER 6: CLS 

1010 FOR i=2 TO 20 

1030 FOR j=1 TD 30 

1040 IF RND>RAND THEN GO TO 104 


FLASH 13 IN 


o 

1050 
1060 
1100 
2000 


PRINT AT 1,35 
NEXT Ji NEXT 1 
RETURN 
LET PX=INT 
2010 LET PY=INT 
2020 IF SCREENS$ 
N GO TO 2000 
2021 IF SCREENS (PY-1,PX-1)<>" " 
THEN GO TO 2000 ; 
2022 IF SCREENS (PY,PX-1)<>" " T 
HEN GO TO 2000 

2023 IF SCREENS (PY+1,PX-1)<>" " 
THEN GO TO 2000 

2024 IF SCREENS (PY-1,PX)<>" " T 

HEN GO TO 2000 

2025 IF SCREENS (PY+1,PX)<>" " T 

HEN GO TO 2000 

2026 IF SCREENS (PY-1,PX+1)<>" " 
THEN 60 TO 2000 

2027 IF SCREENS (PY,PX+1)<>" " T 
HEN 60 TO 2000 

2028 IF SCREENS (PY+1,PX+1)<>" " 
THEN GO TO 2000 

2030 PRINT AT PY,PXpt" 

2100 RETURN 

3000 FOR J=2 TO 20 

3020 LET I=INT (RND*30+1) 
3030 IF SCREENS (J,1)<>" 
60 TO 3020 

3040 PRINT AT J,15 FLASH 1; 
2; se, 

3050 LET LEFT=LEFT+12 

LET Z(LEFT,2)=J3 
3060 NEXT J 

3100 RETURN 

4000 FOR I=1 TO 20 

4010 PRINT AT PY,PX;" 
T TY, TM 

4020 BEEP .02,1 

4030 PRINT AT PY,PXi"t"s 
AT TY,TX3" * 

4040 BEEP .02,20-1 

4050 NEXT 1 

4060 GO TO 7060 

5000 FOR I=1 TO 20 


INK 13"a" 


(RAD+13+5) 
(RND+*17+5) 


(PY,PX)<>" " THE 


“ THEN 
INK 


LET Z(LEFT 


"3 PRINT A 


PRINT 
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5020 PRINT AT PY,PX3" ":z PRINT A 
IA 

5030 BEEP .02,20+1 

5040 PRINT AT PY,PX3"%": PRINT 
AT TY,TxX3" " 

5050 BEEP .02,20-I 

5060 NEXT 1 

7000 FOR I=1 TO 20 

7010 PRINT AT PY,PY3 INK 33"::": 
PRINT AT TY,TX3" " 

7020 BEEP .02,20+1 

7030 PRINT AT PY,PY5 INK 33"%"z 
PRINT AT TY,TX3"i" 

7040' BEEP .02,20-1I 

7060 LET MEN=MEN-12 IF MEN<O THE 
N 60 TO 7070 

7062 FOR I=1 TO 252 BEEP .O1,l: 
BEEP .01,70-1I: NEXT 1 

7065 GO TO 30 

7070 1F PUNTOS>HI THEN LET HI=P 
UNTOS: PRINT AT 0,15;"HI2"5HI 
7075 PRINT AT 1,653"DTRO JUEGO (S 
17? ” 

7080 IF INKEY$="s" THEN GOD TO 2 

5 

7090 IF INKEY$="n" THEN BORDER 

71 PAPER 7: INK Oz STOP 

7100 GO TO 7080 

8000 PRINT AT 0,105 FLASH 13 "+.ex 
BONUS +%x" 

8005 LET PUNTOS=PUNTOS+6 

8006 LET RAND=RAND+*. 6 

go10 FOR I=1 TO 3 

8020 FOR J=1 TO 50 

8030 BEEP .01,J 

8040 NEXT J 

8050 NEXT 1 
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9190 


60 TO 30 


POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 


BORDER 1: 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


USR 


USR 


AT 


RA TECLA PARA 
9200 PRINT AT 
CLA PARA EMPEZAR" 
9210 PAUSE O 
9900 RETURN 


"A",BIN 0001100 


"A"+1,BIN 
“A"+2,BIN 
"A"+3,BIN 
"4"+4,BIN 
"4"+5, BIN 
"4"+6, BIN 
"A"47,BIN 


00011100 
O1111111 
00001000 
00001000 
00010100 
00100010 
00000000 


"B",BIN 00000000 


"B"+1,BIN 
"B"+2,BIN 
"B"+3,BIN 
"B"+4,BIN 
"B"+5,BIN 
"B"+6,BIN 
"C”,0 
"C"+1,BIN 
"C"+2,BIN 
"C"+3,BIN 
"C"+4,BIN 
"C"+5,BIN 
"C"+6,BIN 
”C"+7,0 
PAPER 6: 


o1100110 
01100110 
00000000 
00011000 
01000010 
00111100 


00111100 
o1111110 
01100110 
o1100110 
01111110 
00111100 


INK 0: C 


8,45 "TECLAS: " 
10,45 "A=ARRIBA" 
11,43 "S=ABAJO" 
12,45 "K=IZQUIERDA" 
13,45 "L=DERECHA" * 
15,13 "CUALQUIER OT 


PARAR" 


19,1;"PULSA UNA TE 


11. Castor 


Piensa que eres un CASTOR. Frente a ti hay un gran trozo de madera que te cierra el 
paso para alcanzar tu casa. 

Tú quieres llegar rápidamente a casa, ya que te han comprado un juego nuevo para el 
Spectrum. Por eso, te vas a liar a mordiscos con la madera que tienes delante de ti y hacer tu 
propio camino hacia casa. 


(A O O e 0 AN A O e A A A e 


00 


HA GRAFICO A 


Sñ8 
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Aunque no lo puedas ver en el dibujo anterior, dentro del trozo hay tres clases de 
madera diferentes: 


La madera dura. Es de color rojo. 
La madera de dureza media. Es de color amarillo. 
La madera blanda. Es de color verde. 


El objetivo del juego es que llegues a tu casa en el menor tiempo posible. Por eso, debes 
tener en cuenta que el comerte un trozo de madera dura consume mucho más tiempo que 
comerte el mismo trozo de la blanda. 

Las teclas que dirigen tu movimiento son: 


6—Para mover hacia abajo. 
7—Para mover hacia arriba. 
5S—Para mover hacia la izquierda. 
S—Para mover hacia la derecha. 


El programa contiene instrucciones completas. 


1 REM xx CASTOR ** 170 IF ATTR (A,B)=48 THEN LET ¡O 
5 INPUT "Instrucciones?"ja$ F=F+3: BEEP .05,10 ; 

6 IF a$(1)="S" OR A$(1)="s" T 180 IF ATTR (A,B)=16 THEN LET | y 
' HEN GO SUB 9900 F=F+101 BEEP .05,20 A: 

7 INK Oz PAPER 71 BORDER 71 L 185 IF ATTR (A,B)=56 THEN LET 

' ET F=01 LET T=01 CLS A=C1 LET B=D pO 
¡10 FOR N=1 TO 21 190 IF INKEY$<>"" THEN GO TO 1 
¡20 FOR M=1 TO 31 30 No) 
'—3O LET Z=INT (RND*3) 200 PRINT PAPER 753AT C,D3" "  ! 
40 IF Z=0 THEN PAPER 4 210 LET T=T+1: GO TO 100 
¡50 IF Z=1 THEN PAPER 6 250 REM + FIN ** ¡O 
¡55 IF Z=2 THEN PAPER 2 260 PRINT AT 21,05 
¡60 PRINT AT NyM3" " 270 POKE 23692,10 Lo 
; 65 BEEP .0005,45 : 280 INK Oz PAPER 7: PRINT FLAS 
¡70 NEXT Mz NEXT ON H 13" GAME OVER LO 
| 80 LET A=10: LET B=01 LET C=Ax . 
 LET D=B 290 PRINT 

| 100 PRINT INK 9; PAPER 83AT A, 300 PRINT "PUNTOS: "31000-T-F 1 O 
! B3".5"2: LET C=A: LET D=B 310 PRINT : PRINT : PRINT ' 

| 101 IF B=31 THEN GO TO 250 320 INPUT "OTRO JUEGO? ";As$ o 
| 104 PRINT  INK 03 PAPER 75AT O, 330 IF A$="S" THEN RUN 

| 03 "FATIGA: "3F3AT 0,103"No. DE M 340 GD TOD 340 

| OVIMIENTOS: "57 9900 REM ** INSTRUCCIONES ts o) 
l 105 IF INKEY$="" THEN GO TO 10 9905 PAPER 7: BORDER 7: CLS ' 
Ls 9710 PRINT  INK 73 PAPER 13AT 0, ¡ 
| 106 LET Z$=INKEYS$ Je CASTOR ! 
¡110 IF Z$="6" THEN LET A=A+1 

; 120 1F 2$="7" THEN LET A=A-1 9920 LET A$="EN ESTE JUEGO TU (U| O 
¡130 IF Z$="8" THEN LET B=B+1 N CASTOR) DE-BES IR COMIENDOTE T 
160 IF ATTR (A,B)=32 THEN LET U CAMINO AL OTRO LADO DE LA PAN! y 
| F=F+11 BEEP .05,0 TALLA (MADERA) " 
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9921 LET B$=".HAY DIFERENTES TIP 
OS DE MADERA5LA ROJA ES MUY DURA 
LA AMARILLA ES MEDIA Y LA VERDE 
ES BLANDA." 

9922 LET C+$=" CUANTO MAS DURA S 
EA MAS TE CAN- SAS Y POR LO TANT 
O MENOS PUNTOS TENDRAS AL FINAL. 


9923 LET D$=" EL NUMERO DE  MOVI 
MIENTOS QUE HAGAS TAMBIEN CAMB 
IARA TU PUNTUACION. (UN NUME-RO P 
EQUEFIO DARA UNA PUNTUACION MAY 
OR.) 


9924 LET E$="SIENTO MUCHO EL RET 
RASO QUESE PRODUCE CUANDO ESTOY 
DIBUJAN—-DO LA MADERA. 


PARA MOVER: 6-ABAJO, 7 

ARRIBA, 8-DERECHA. (NO PUEDES NI 
IR A LA IZQUIERDA NI A DONDE ES 
TUVISTE ANTES. )" 
9929 LET A$=A$4+B$+C$+D$+E5$ 
9930 FOR N=1 TO LEN A$z PRINT 1 
NK 23A$(W)5:2 IF A$(N)<>" " THEN 

BEEP .005,N/10 
9940 NEXT N 
9950 PRINT 4$05"PULSA UNA TECLA P 
ARA EMPEZAR" 
9960 IF INKEY$="" THEN GO TO 99 
60 
9970 REM **L. D. Ge 
9980 FOR N=0 TO 72 READ A: 
USR "A"+N,Az: NEXT Nz RETURN 
9990 DATA 6,31,32,24,4,4,136,112 
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12. Búsqueda 


Este es un simple programa numérico. 

El ordenador piensa un número entre cero y un número que tú especifiques. Tendrás 
diez oportunidades para adivinar el número que ha pensado el ordenador. 

Cada vez que introduzcas un número, el ordenador te dirá si el que has tecleado es 
mayor o menor que el número que él tiene. 

Puedes basarte en la forma de este programa para hacer uno que calcule raices de 
polinomios de forma aproximada. 


0) 1 REM %%* BUSQUEDA exe 60 LET N=INT (RND+*L) 
¡ 7 PAPER 7: BORDER 1: CLS 70 PRINT AT 5,03 "PENSARE UN NU 
¡ 10 PRINT  INK 45AT 3,123 "BUSQU | MERO ENTRE O Y "5Lz PRINT : PRIN 
O | EDA"3 INK 25AT 15,353"*-— UN JUEGO | T TAB 8;3"CUAL ES TU INTENTO": IN 
¡; CON NUMEROS -—+*" PUT G:z CLS 
O! 13 LET S=0 80 LET R=R+1: IF R=10 THEN 60D 
15 PRINT  INK 25A4T 3,83" INSTRU TO 200 
! CCIONES:"z PRINT : PRINT " AL EM 90 IF G>L THEN 60 TO 150 
O ; PEZAR EL JUEGO ME DARAS"”"UN LIM 100 IF G=L THEN (GD TO 130 
¡ ITE,ENTRE EL O Y ESE VOY A" 110 IF G>»N THEN GO TO 140 
O ' 20 PRINT "CALCULAR UN NUMERO ( 120 IF G<N THEN GO TO 150 
' LOS LIMITES ESTAN INCLUIDOS)." 130 LET S=S+1 
o | _,30 PRINT *" TU TIENES QUE ADIV 140 FOR B=0 TO 2: BORDER INT (R 
' INAR ESE NU- MERO EN DIEZ INTENT | ND*8): BEEP .2,34:2 NEXT Bz PRINT 
DS." AT 8,0;"FELICIDADES! LO HAS AVE 
O | 40 INPUT "TECLEA EL LIMITE "3L | RIGUADO"”"EN SOLO "3: GO SUB 250 
ll CLS s PRINT : PRINT TAB 53"TU PUNTUA 
Ni. 50 LET R=0 CION ES AHORA DE "55: GO TO 170 


150 PRINT AT 2,3;"MUY BAJO. INT 190 PRINT AT 2,05"NO SEAS TONTO 


ENTALO DE NUEVO. ":z GO TO 70 Y NO TE SALGAS DE"”*TAB 103"LOS 
150 PRINT AT 2,35"MUY ALTO. INT LIMITES": LET R=R-1: GO TO 40 
ENTALO DE NUEVO. ":z GO TO 70 200 BEEP 1,0: PRINT AT 11,2;"LO 


170 INPUT "QUIERES OTRA PARTIDA SIENTO PERD SE ACABARON TUS"*TA 


? (S/N) "3A$: IF A$(1)="S" OR A | B 115"O0PORTUNIDADES": STOP 

$(1)="s" THEN GO TO 40 250 IF R=i THEN PRINT "UN INTE 
180 CLS : FOR D=0 TO 87: PRINT NTO!": RETURN 

3 INK 43"HASTA LUEGO ";2 NEXT Dz 260 PRINT R3" INTENTOS"¿ RETURN 
sTOoP 
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13. Ayuda al fantasma 


Este juego está basado principalmente en el conocido tragaperras FROGGER, aunque 
los gráficos de los fantasmas son del PAC-MAN., 


Hua 


ÚS 


In di 


dui 


_ ns ar 
[) MA 


N 
— 
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En este juego has de ayudar a cinco fantasmas para que crucen unas calles llenas de 
tráfico sin que les ocurra ningún percance. 
Las teclas que gobiernan a los fantasmas son: 


L—-Para mover a la izquierda. 
J—Para mover a la derecha. 
Q—Para subir. 
Z—Para bajar. 


Los gráficos definidos son los siguientes: 


O 


MO BRAFICO 
FEO GRAFICO ES PAN 
BEE e AAPP ACA se 
Mio GRAFICO E 


JO 


Fijate que las letras, en este juego, deben estar en mayúsculas. 

Fíjate también cómo se usan las cualidades del BASIC del Spectrum en el manejo de las 
cadenas (líneas desde la 460 hasta la 490). Este manejo permite dar movimiento a las filas de 
coches. 

Si encuentras el juego muy fácil, pon más vehículos en las cadenas (asignadas desde la 
línea 1160 hasta la 1190). 


t 
y 10 REM %*x* AYUDA AL FANTASMA *x* 80 IF INKEY$="Z" THEN LET PD= : 
3O GO SUB 1000 PD+1: 1F PA>18 THEN LET PA=18 | 
A 40 LET PAE=PA: LET PDE=PD 90 IF INXEY$="0" THEN LET PD= | 0) 
¡ 60 IF INKEY$="L" THEN LET PA= | PD-13 IF PD<4 THEN LET PD=4 ; 
¡ PAtia IF PA>25 THEN LET PA=25 93 PRINT AT PDE,PAE3" "3AT PD, | 
i 70 IF INSEY$="J" THEN LET PA= | PA3"s" > CO 
¡; PA-1t2 IF PAXS THEN LET PA=5 97 LET Y=PA-5 | 
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98 PRINT AT 4,63 INK 64j3A$50T 9 


,»63 INK 43BS5;3AT 13,635 INK 63C$3A 
T 16,63 INK 43D5S$ 

100 IF PD=6 AND A$(Y)<>" " THEN 

GO SUB 700 

105 IF PD=92 AND B$(Y)<>" " THEN 

GO SUB 700 

110 IF PD=13 AND Cs$(Y)<>" " THE 
N GO SUB 700 

115 IF PD=16 AND D$(Y)<>" " THE 


N GO SUB 700 

130 IF PD=4 THEN GO SUB 800 
460 LET A$=A$(19)+A$( TO 18) 
LET B$=B$(19)+4$( TO 18) 
LET C$=C0$(2 TO )+A5 (1) 
LET D$=D$(3 TO )+A$(1 TO 2) 
IF LIFE>O THEN GO TO 40 
PRINT AT PD,PA; INK 23 FLAS 
BRIGHT 13"*:": FOR G=1 TO 2 
2: FOR F=20 TO 40: BEEP .007,Fa N 
EXT F:z NEXT Gi LET LIFE=LIFE-1 
720 IF LIFE>0 THEN 60 TO 815 
730 STOP 

800 LET SCORE=SCORE+1 

Bi10 LET LIFE=LIFE-1 

812 PRINT AT 0,2;SCO0RE3" SEGURO 


EN CASA"”" TUS PUNTOS SON "3100 
*SCORE y 

815 PRINT AT PD,PD;" "5AT 4,45 
INK 2; rr 

917 LET PA=8: LET PD=18 

820 PRINT AT 20,205 PAPER 23" 

";AT 20,20; 

825 FOR Gs1 TO LIFE-1: PRINT P 
APER 23" "5: NEXT G 

830 IF SCORE<S THEN RETURN 
990 STOP 


1000 REM INICIALIZACION 


1010 BORDER 2: PAPER 2: INK 12 C 

LS 

1020 FOR A=5 TO 25 

1030 FOR B=4 TO 18 

1040 PRINT AT B,As5 "ml" 

1050 NEXT B: NEXT A 

1060 LET PA=8: LET PD=18 

1070 LET PAE=8: LET PDE=18 

1080 FOR Z=1i TO 4 

10790 READ Z$ 

1100 FOR G=0 TO 7 

1110 READ M 

1120 POKE USR Z$+G6,M 

1130 NEXT G 

1140 NEXT Z 

1150 INK 72 PAPER 1 

1150 LET As$="3% 245 EE OEE PF OFFER EF 
ER O" 

1170 LET B$="w*: ERRE EF FEO EE 
RE 0) 

1180 LET Có$=" HIM + +4 44 Ho Ho + 

”» 

1190 LET D$=" + +4 2 EE pm + 

óf 1] 

1200 LET LIFE=5 

1210 LET SCORE=0 

1220 PRINT AT 20,205 PAPER 23 "fa 

Da 4 Ra" 


1500 RETURN 

1510 DATA "A",56,124,214,214,254 
,254,170,170: REM FANTASMA 

1520 DATA "B",0,239,68,255,255,6 
8,238,0: REM COCHE DERECHA 

1530 DATA "C",0,119,34,255,255,3 
4,119,0: REM COCHE IZQUIERDA 
1540 DATA "D",145,82,0,192,3,0,7 
14,137: REM EXPLOSION 
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14. Ataque en cuatro direcciones 


Estás situado enmedio de la pantalla, bajo un ataque (como indica el nombre) desde las 
cuatro direcciones (arriba, abajo, izquierda y derecha). 

Cuando veas una bomba venir, lo único que tienes que hacer es pulsar la tecla con la 
flecha (teclas desde el 5 hasta el 8) que indique la dirección en la que viene la bomba (por 
ejemplo, si la bomba se acerca desde la izquierda, entonces se pulsa el 5). 

Si consigues hacerlo a tiempo, la bomba explota en el aire; pero, si no es así, explotará 
en ti y perderás una vida. El número de vidas es limitado. 


10 REM ** ATAQUE EN CUATRO *+*e 90 REM GRAFICO A EN LA SIGUIEN | 

12 REM xx DIRECCIONES ** TE 

30 INK 12 PAPER 7: CLS 2 GO SU 100 CLS 1: PRINT AT 10,155 INK 5 : O 
I 


I 
! 
¡ 

O ¡ B 8000 Y 
40 RANDOMIZE 105 FOR T=1 TO 50: NEXT T 

O |. 50 PRINT AT 4,43 INK 53 FLASH 110 PRINT AT 0,03 FLASH 13 INK ¡(O 
| 13 "ATAQUE EN CUATRO DIRECCIONES" | 3;"PUNTOS: "5 INVERSE 15Y 

O | JAT 7,25 FLASH Oj INK 1;"EN ESTE 120 PRINT FLASH 15 INK 23 INVE | y 
! JUEGO TU (¿) INTENTAS DESTRUIR RSE 13AT 20,05"MAX PUNT. "30 h 
í LAS BOMBAS () ANTES DEQUE TE 130 LET J=INT (4*RND+1)+*1000 

O | DESTRUYAN A TI."3AT 11,2; "TIENES 132 BEEP .4,5: BEEP .4,%1 BEEP ¡O 
¡; CINCO VIDAS Y POR CADA BOMBA QU | .4,5 | 

O |! E DESTRUYAS CONSIGUES 100 PUNT 135 PRINT AT 10,155 FLASH 15 BR ¡ y 
¡ DS. NO TE VAYAS." IGHT 13"4" 

o! 70 PAUSE 100 140 G0 TO J 
75 LET Q=0 1000 LET A=10: LET B=1 ¡8 
76 REM K=NUMERO DE VIDAS 1005 REM GRAFICO B EN LA SIGUIEN 

O ¡ 80 LET Y=0: LET K=10 TE LO 


O 
O 
O 
o) 


1] 
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1010 PRINT AT A,B3"“"5AT A,B-15 4060 LET A=A-1 
"ou 4070 GO TO 4020 ! 
1020 PRINT AT 10,15; FLASH 15 BR | 5000 LET Y=Y+100 
IGHT 13"4" 5004 FOR R=1 TO 7 ¡ 
1030 IF INKEYS="5" THEN GO TO 5 | 5005 PRINT AT A,B; FLASH 13 BRIG , 
000 HT 13" "5AT A,Bj FLASH 03 INK 53 | 
1050 IF B=15 THEN GOD TO 4000 "ga | 
1060 LET B=B+1 5007 BEEP .006,RND*20+30 
1070 GO TO 1010 5008 BORDER RND+*7: NEXT R 
2000 LET A=10: LET B=25 5009 BORDER 7 
2010 PRINT AT 10,155 FLASH 13 BR | 5010 60 TO 100 
IGHT 13" 4" 4000 LET K=kK-1 
2020 PRINT AT A,B3"s»"3AT A,B+13 6010 IF K=0 THEN 60 TO 7000 | 
0: £020 LET J=0 
2030 IF INKEY$="8" THEN GO TO 5 | 6030 GO TO 1000 
000 7000 PRINT AT 10,115 FLASH 1;"GA | 
2050 IF B=15 THEN GO TO 4000 ME OVER" 
2060 LET B=B-1 7010 IF 0<Y THEN LET Q=Y 
2070 60 TO 2020 7020 PRINT AT 20,0; "QUIERES JUGA | 
3000 LET A=2: LET B=15 R OTRA(S/N)?" 
3010 PRINT AT 10,153 FLASH 153 BR | 7030 INPUT W$ 
IGHT 15"5" 7035 CLS 
3020 PRINT AT A,B3"-s"5AT A-1,B3 | 7040 IF W$="S" THEN GO TO 80 
“ou 7050 STOP 
3030 IF INKEY$="7" THEN GO TO 5 | B000 FOR Z=1 TO 2 
000 8010 READ Z% 
3050 IF A=10 THEN GO TO 4000 8020 FOR X=0 TO 7 
3060 LET A=A+1 8030 READ M | 
3070 GO TO 3020 8040 POKE USR Z$+X,M 
4000 LET A=18: LET B=15 BO050 NEXT X | 
4010 PRINT AT 10,153 INVERSE 1; 8060 NEXT Z 
FLASH 13 BRIGHT 13"¿4" 8070 RETURN 
4020 PRINT AT A,B3""="5AT1 A+1,B3 8080 DATA "A",8,20,8,62,6,28,34, |! 
" ”m 34 ' 
4030 IF INKEYS="6" THEN GO TO 5 | 8090 DATA "B",32,16,160,92,30,31 | 
000 115,7 
4050 IF A=10 THEN GD TO 4000 

E h 
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15. Ruleta rusa 


Este juego, como indica el título, es semejante al de la ruleta rusa, pero tiene dos 
variantes frente a ella: es incruento y también es más entretenido, ya que de vez en cuando 
te puedes reir un poco. 

Nada más empezar, el programa te dice la causa por la que te quieres suicidar. El 
ordenador tiene en su interior varios escenarios, de los que elige aleatoriamente uno. 

Después de esta pequeña introducción que el programa hace, el ordenador elegirá una 
de estas pistolas: Pietro Beretta .32, Tokarev .38 o Walther PPK; la que él elija será la que te 
llevará al otro mundo. 

Una vez hecha esta elección, sigue las instrucciones del programa y no te eches para 


atrás. 
T 
¡o 1 REM x** RULETA RUSA *x iste el trabajo y fuiste reempla 
) 7 BORDER 4 zado por un ordenador" 
O 10 PRINT AT 3,2;"Este es un ju 40 IF S=2 THEN PRINT "...tu e 
ego de la ruleta rusa con una el sposa se acaba de chocar con el 
! eccion." coche nuevo. Ya la has ma-tado a 
O ¡ 15 60 SUB 140 ella." 
! 20 PRINT AT 5,03"Tu historia e 45 IF S=3 THEN PRINT "...se q 
O¡ s triste...": PRINT : PRINT uemo la casa y el perro murio a 
h 25 LET s=INT (RND*5) chicharrado.Esperabas quefueran 
O . 30 IF 5=0 THEN PRINT "...tu e los crios.” 
; SpOsa se fue con los chi-cos y a 50 IF S=4 THEN PRINT "...tu yv 
¡ hora quiere que le pagues la man iaje tan esperado a Aus- tralia 
O ! utencion." 
' 


35 IF S=1 THEN PRINT "...perd 


ha sido postpuesto porquetu muje 
r se ha comprado un mode-lito." 
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S5 PRINT 2: PRINT 2 PRINT TAB 4 
3"- y has decidido acabar tu su 
frir en este mundo."a GO SUB 140 
3 CLS 

60 PRINT AT 7,2;"Tienes una au 
tomatica -—":z PRINT 

65 LET g=INT (RND+*3) 

70 IF g=0 THEN PRINT TAB 4;"4w 
alter PPkK" 

75 1F g=1 THEN PRINT TAB 43" 
Pietro Beretta .32" 

80 IF g=2 THEN PRINT TAB 43" 


Tokarev .38" 

85 PRINT 2 PRINT : PRINT TAB 3 
3"- y vas a usarla,”;TAB*10;3" ve 
rdad ?":z GO SUB 140 


90 PRINT AT 3,33"Tecla ”1” par 
a disparar."5AT 5,35"Tecla *2” p 
ara arrepentirte." 

92 LET N=0 

953 PRINT AT 15,0; "<RECUERDA QU 
E SI TE ARREPIENTES ENTONCES VOL 
VERAS A ESTE PERRO MUNDO. >" 


100>PAUSE O 
102 CLS 
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IF INKEY$="1" THEN GO TO 1 


IF INKEY$="2" THEN GO TO 1 
60 TO 90 

PRINT AT 11,1153"GALLINA"1a P 
20: CLS : PAUSE 20: GO TO 1 


LET N=N+1: 
TO 135 

120 IF INT (RND*6)=5 THEN GO T 
DO 130 

125 BEEP .1,-30:2 PRINT  INK 35A 
T 11,113"- CLICCK -"2z GO TO 100 

130 BEEP .5,25: PRINT INK 2;3AT 
9,135"BANG!":z PRINT 2 PRINT — IN 
K 035 "BIEN HECHO — AHORA ESTAS M 
UERTO! ": STOP 

135 PRINT AT 2,0;"Tienes tan ma 
la suerte que ni siquiera te p 
uedes matar!":z PRINT : PRINT TAB 


IF N=9 THEN GO 


35 "INTENTALO DE NUEVO!"2 GO TO 
60 
140 PAUSE 200: CLS : RETURN 
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1. Mastermind 


Este es una simulación del juego llamado MASTERMIND. 

El ordenador se “inventa” un código de colores secreto. Tú tienes que averiguar, usando 
tu capacidad de raciocinio, el código que tiene el ordenador. 

El juego consiste en dar al ordenador diferentes códigos, y él te dirá cuántas fichas de 
ese código coinciden en posición y en color con las del código que el ordenador ha generado 
previamente; también te dirá cuántas fichas están mal colocadas, es decir, las fichas que 
tienen el mismo color que otras del código secreto, pero no están en las mismas posiciones. 

Las teclas que se usan en el juego son: 


Z—Para mover el cursor a la izquierda. 

M—-—Para mover el cursor a la derecha. 
Un espacio para poner la ficha. 
Para dar color a una ficha se aprieta el número que corresponda al color que 
hayas elegido. 


(PA A O o A RAN PIPA NUIT crRno rr rare sas sacos sonoro 


O ---- GRAFICO ñA 


$ GRAFICO E 


O A A A A O O 5 o 
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1 REM +* MASTERMIND +x 

9 PRINT "Z Mueve el cursor a 
la izquierda"””"M Mueve el curso 
r a la derecha"””"La tecla SPACE 
entra la eleccion"”*”"Una tecla 
de color cambia el co-lor delant 
e del cursor" 

10 INPUT "Cuantos agujeros (3 


a 9)?"3a1 IF a<3 OR a>9 THEN GO 
TO 10 

20 FOR N=0 TO 7 

30 READ Xx POKE USR "A"+N,X 

40 NEXT N 

50 DATA 255,195, 129,129,129,12 
9,195,255 


650 BORDER 1: PAPER 31 INK O: C 
LS 1 LET Aé=" ANSIA A 

70 FOR N=1 TO 14: PRINT AT 15- 
N,153Nz NEXT ON 

80 FOR N=1 TO 17: PRINT AT 18- 
N,33A$(1 TO A): NEXT ON 

90 FOR N=0 TO 7: READ Xi POKE 
USR "B"+N,Xa NEXT Ni LET G=1 
100 DATA 0,0,24,40,50,24,0,0 
110 DIM B(A): FOR N=1 TO Az 
B(N)=INT (RND*6)+1:1 NEXT N 
120 LET H=1: DIM C(A) 

125 PRINT FLASH 13AT 21,H+23"" 
” 
130 
135 
140 


LET 


PAUSE O: LET A$=INKEY$ 
FOR N=0 TO 50: NEXT N 
PRINT AT 21,H+23" " 
150 LET HsH+(INKEYS="5" 
)-(INKEY$="Z" AND H>1) 
160 PRINT FLASH 13AT 21,H+23"" 
» 

170 IF A$=" " THEN GO TO 210 
180 IF CODE A$<48 OR CODE A$>55 
THEN 60 TO 130 

185 BEEP .05,CODE A$-481 
H)=VAL AS 

190 PRINT PAPER VAL ASjAT 15-6 


AND H<A 


LET C( 


200 GO TO 130 

210 LET W=0: LET U=0 

211 DIM D(A)1 FOR N=1 TO Az LET 
D(N)=B(N)2z NEXT N 

215 PRINT AT 21,H+23" ” 

216 FOR S=i TO A 

217 IF C(S)=B(S) THEN LET U=U+ 
1: BEEP .01,10: LET C(S)=100: LE 
T D(S)=50 

218 NEXT S 

220 FOR S=1 TO A 

230 FOR T=1 TO A 

240 IF C(S)=D(T) AND S<>T THEN 


LET W=W+1: BEEP .01,201 LET D(T 
)=89: LET C(S5)=99 

250 NEXT T: NEXT S 

290 PRINT AT 15-G,94+332 LET ANT 
u=u 

300 IF U=0 THEN 60 TO 330 

310 PRINT — INK O¿CHR$ 1455 

320 LET U=U-1: GO TO 300 

330 IF W=0 THEN GO TO 360 


PRINT — INK 73CHR$ 1455 

LET W=W-1: GO TO 330 

IF ANTUSA THEN GO TO 410 
LET G=G+1 

IF G=i5 THEN GO TO 400 

GO TO 120 

PRINT AT 20,A+63 "MALA SUERT 


FOR N=7 TO O STEP -—11 
R Nz BEEP .2,Nx*22 NEXT Ns 
7: GO TO 420 

410 PRINT "FELICIDADES" 
411 FOR N=0 TO 7: BORDER Ns: 
P-.2,N*2: NEXT Nz BORDER 7 
420 FOR N=1 TO Az PRINT PAPER 
B(N5AT 17,N+23CHR$ 144: NEXT N 


BORDE 
BORDER 


BEE 


430 INPUT "OTRA ? <S/N>"jAs 
THEN STOP 


440 IF A$="N" 
450 RUN 


O 
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2. Simón 


Esta es una versión de uno de los primeros juegos que se hicieron en ordenador. El 
cometido que tienes que realizar es aprenderte de memoria los números y tonos que el 
ordenador va creando para, cuando llegue tu turno, repetirlos. 

El ordenador empieza eligiendo un número entre 1 y 4. Este determina en qué parte de 
la pantalla se dibujará un gran bloque, el color que se le va a dar a ese bloque, y la nota que 
se va a tocar. 

Después de esto tú repites el número que haya elegido el ordenador, y sale otra vez 
el bloque de color que le corresponda a ese número, y la nota. Una vez hecho esto, el 
ordenador elige otro número y te enseña los dos, cada uno por separado, de la forma que 
antes te expliqué. Ahora tecleas los dos números y el ordenador dará otro más; así hasta que 
te equivoques. 

Si el mismo número aparece repetido, tendrás que levantar el dedo de la tecla que 
indique el número, y después volver a pulsar la tecla. Si no haces esto, el ordenador 
entenderá que sólo has apretado la tecla una sola vez. 


10 LET BS$=" IRM 


1 REM ** SIMON *% 40 READ C(6G) 
7 DIM B(11): DIM C(11): DIM D 50 READ D(G) 
(11) 60 NEXT G 
70 FOR C=1 TO 11 


LET B(C)=INT (RND*4)+1 


o) 15 FOR R=1 TO 3: L=T Bé$=B$+B$: 90 NEXT C O 
NEXT R 935 LET X=1 
0) 30 RANDOMIZE 100 FOR Q=1 TO X 


' 
1 
! 
1 
1 
1 
1 
! 
! 
! 
! 
' 
' 
1 
1 
1 
1 
1 
, 
| 


35 FOR G=1 TO 4 
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PRINT AT C(B(0)),D(B(0))5 1 


O 


e) 


O 


NK B(0)5B(0)5B% 
120 BEEP .15,7%*B(Q) 
125 CLS 
130 NEXT Q 
150 FOR Z=1 TO X 
155 IF INKEY$<>"" THEN G0 TO 1 


150 LET A$=INKEY$: IF A$="" THE 
N GO TO 160 

170 LET A=VAL As$ 

180 PRINT AT C(A),D(A)3 INK AJA 
3D$ 

190 BEEP .14,7x*A 


210 CLS 
230 FOR 


TO 100 


255 


N "3X-12 


A 


200 IF A<>B(Z) THEN GO TO 500 
220 NEXT Z: CLS 


240 IF X<11 THEN LET X=X+1:3 GO 


RNDx65 "LO CONSEGUISTE!!": GO TO 


500 PRINT AT 4,05 FLASH 13 INK 
RND*65 "FALLASTE... TUS PUNTOS SO 


t 
l 
I 
I 
1] 
250 PRINT AT 4,05 FLASH 135 INK 
' 
' 
' 
' 
' 
1] 
' 
780 DATA 0,0,0,13,13,0,13,13 | 

I 


G=1 TO 100: NEXT G 


GO TO 500 


00 0 O 


SA O | 


223 


3. Laberinto solitario 


Este es un juego para gente con astucia, y sobre todo con mucha paciencia. 

El LABERINTO SOLITARIO es un juego de estrategia, que puede durar desde segun- 
dos hasta horas, esto si eres muy malo. 

Bajo tu control están unas fichas circulares (desde 1 hasta 5, según tú lo prefieras). 
Habrá el mismo número de fichas parecidas a diamantes que no se mueven durante el juego. 


a qua es 2444401 0:01 
El 


FA El a «sl 1D] 
E O dldedtrtartdto 41 TE 
¡MN ! oh tr Hot E Yo HH 
1 punsansotgae y Breasi o 1 
Hot Ho + Hot o tt 
DOOR ne 1 HO ORRsaue Ft Hol 
"TD H odio dt H ot Hood 
Ho Hu Ho oHntun E E Ho ut 1 HH 
Y) Hon on Ho E ati CERA do HEART AA 
FEA HL O EE E 
H OHHH o. tt Ho Ho Ho Han tH 
==, cid E H Homo 4 
pal H OH Hum ++ Ho Hoi Hs 
¡MN H aereas 1h 524 barna RR 
Ho Haatarts + HE q HH HrrE 
HH Ho oHHH HEH o mot Ho. o E 
Ho Hot E +HOH!H OH Hu nn Ho at 
pe Hou .om ot Ho + !. o +. 
E HoORee O EoHaR mn HNNAEna anio E 
E, + H 11 + 


ES 
Hara palenessantata daa be E 


El objetivo del juego es mover tus fichas en el laberinto de forma que las fichas pasen 
por encima de los diamantes. 
" Estos son los gráficos que usa el programa al ejecutarse: 


E 


o a A => 


MM ———— GRAFICO E 


Mientras estás jugando un reloj está en funcionamiento. Cuando acabas, él te dice el 
tiempo que has tardado en acabar el juego, y la duración de la partida más corta. 

Si lo deseas, puedes modificar el tiempo que hay entre cada movimiento. Para ello sólo 
tienes que modificar el bucle de la línea 400. 

También puedes generar un laberinto diferente con sólo cambiar las líneas que van desde 
la 1000 hasta la 1210. Si vas a usar otro carácter para indicar las paredes del laberinto, debes 
cambiar la línea 530. 

Los gráficos están definidos en las líneas que van desde la 9000 hasta la 9017; si no te 
gustan, los puedes cambiar por otros cualesquiera. 

Los colores de la pantalla están elegidos en la línea 200. 

Puedes cambiar las teclas modificando las líneas que van desde la 420 hasta la 450. Esas 
líneas contienen referencias numéricas sobre la última tecla pulsada. Fíjate en la línea 390 y 
verás qué forma tan peculiar tiene el programa de leer el teclado. 


REM x* LABERINTO *x T (ATTR (Y,X)/8)+8 8 

i ** SOLITARIO +*x 40 BORDER 1: PAPER 61 INK Ox C 

| 4 RANDOMIZE LS | 
an 5 LET BEST=99999 50 PRINT AT 1,63 "LABERINTO SOL : O 

; 10 6D SUB 9000 ITARIO": PRINT AT 1,63 OVER 13"_ 
O A E " O 

30 DEF FN A(X,Y)=ATTR (Y,X)-IN 70 PRINT "CUANTOS OBJETOS <1-5 
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> 2 


80 LET AS$=INKEY$: 1F A$="" THE 


N GO TO 80: PRINT A$: LET NUM=C 
ODE (A$)-48 

90 PRINT A$: LET NUM=CODE (A$) 
-48 


100 IF INKEY$<>"" THEN GO TO 1 
00 

110 IF NUM<1 OR NUM>S THEN GO 
TO 70 

200 PAPER 7: INK 32 CLS 

210 FOR I=1 TO 5: LET C(I)=03 N 
EXT 1 

220 GO SUB 1000 

230 FOR I=1 TO NUM 

240 LET X=INT (RND*32)1 LET Y=1 
NT (RND*22) 

250 IF SCREEN$ (Y,X)<>" " THEN 
GO TO 240 

260 FOR J=1 TO 50 STEP 3 

270 PRINT AT Y,X3" ": BEEP .02, 
J 

280 PRINT AT Y,X; 
EEP .02,J+1.5 

290 NEXT J: NEXT 1 
300 FOR I=1 TO NUM 


INK 13"4": B 


y 
310 LET X=INT (RND*32)1 LET Y=1I 
NT (RND+*22) 
320 IF SCREENS (Y,X)<>" " THEN 


60 TO 310 

330 FOR J=i TO 50 STEP 3 

340 PRINT AT Y,X53" "z BEEP 0.02 
¡4+1.5 

350>PRINT AT Y,X3AT Y,X5INK 23" 
6":BEEP 0.02,J+1.5 
3650 NEXT J 

370 LET P(I,1)=X: 
380 NEXT 1 

390 POKE 23560,0: POKE 23672,0:2 
POKE 23673,0: POKE 23674,0 

400 FOR Z=1 TO 12 NEXT Z 

410 LET MOVE=PEEK (23560): LET 


LET P(1,2)=Y 


DX=0: LET DY=0 

420 IF MOVE=97 THEN LET DY=-1:2 
GO TO 500 

430 IF MOVE=115 THEN LET DY=1:2 
GO TO 500 


440 IF MOVE=107 THEN LET DX=-1 
: GO TO 500 

450 IF MOVE=108 THEN LET DX=1: 
GO TO 500 

450 GO TO 400 

500 FOR I=1 TO NUM 
510 LET B$=SCREEN$ 
(1,1)+DX) 

515 PRINT +13AT 1,05b$ 


(P(1,2)+DY,P 


520 IF B$=" " THEN GOD TO 700 
530 IF B$="*" THEN GO TO 800 
540 LET B=FN a(p(i,1)+dx,p(i,2) 
+dy): IF b=2 THEN (GO TO 800 
550 LET c(i)=1 

560 FOR k=1 TO num 

570 IF c(k)=0 THEN GO TO 600 
580 NEXT k 

590 GO TO 2000 

600 PRINT AT p(1,2),p(1,1)3" " 
610 LET p(i,1)=p(i,1)+dxr LET p 
(1,2)=p(i,2)+dy 

620 PRINT AT p(i,2),p(1,1)3 
23"g" 

630 GO TO 800 

700 PRINT AT p(i,2),p(1,1)5" " 
710 IF c(i)=1 THEN PRINT AT p( 
i,2),p(i,1)5 INK 15" "2 LET c(i) 
=1 

720 LET p(i,1)=p(i,1)+dx: LET p 
(i1,2)=p(i,2)+dy 

730 IF c(i)=0 THEN PRINT AT p( 
1,2),p(is,1)3 INK 23" " 

740 GO TO 800 

800 NEXT i 

810 GO TO 400 

1000 PRINT "Hitd MARIE 
RARA 

1010 PRINT "4 + 

$ $" 

1020 PRINT "$4 
HUHBRBBNR Y 4 
1030 PRINT "4 + $ 
$" 
"$ 
$" 
” $ 
H ” 
“ $ 
y" 
. $ 
$" 
"$ 
$" 
1090 PRINT "+ 
$ HR CR 
1100 PRINT "+ 
Hide $" 
“ H 
H .” 
“$ 
3 » 
"$ 
* ” 
“$ 
$ ”» 


INK 


HNAHRBAR AMARA 

$ $ 
HNARRHRRARR 
+ + $ 

H HN HA 

+ 4 

$ HA RA 
$ 4 A $ 4 
+ HA A 
HIRO $ $4 
$H 4 4 4 RR 
hi $ + 


HABANA AA 


1150 PRINT "s% died $ + 
$ 4% +.” 
1160 PRINT "4Hitét H HRA ACA 
* Rk + 
1170 PRINT "$ $ 4 $ Hi + 
HR AUR 
1180 PRINT "* 4 $ $ us$ 
$ $" 
1190 PRINT "$W 46H 4 HI A $+n 
id A 
1200 PRINT "4% + $4 $+ 
$ .h $" 
1210 PRINT "HIRAMIAIAAA ARA 
HARHUNARAERR" 


1220 RETURN 

2000 PRINT AT P(1,2),P(1,1)3" " 
2010 PRINT AT P(1,2)+DY,P(1,1)+D 
X3 INK 23" 4" 

2020 LET TIEMPO=INT ((S65536*PEEK 
23674+256*PEEK 23673+PEEK 23672 


1/50)1 PRINT AT 0,03 PAPER 13 IN 
K 73" TIEMPO GASTADO: 
"1 PRINT AT 0,223 PAPER 1; 


2020>LET TIEMPO=INT ((65336*PEEK 

23674+256*PEEK 23673+PEEK 23672 

)/50):PRINT AT O,OjPAPER 13 INK 7 
TIEMPO GASTADO: 

"¿PRINT AT 0,22;5PAPER 15 INK 75 

TIEMPO 

2030 IF BEST>TIEMPO THEN LET BE 

ST=TIEMPO 

2035 PRINT AT 1,05 PAPER 13 INK 


3 TIEMPO MAS RAPIDO: 


" PRINT AT 1,213 PAPER 15 IN 

K 7;BEST 

2040 PRINT $15AT 21,05 PAPER 1; 
INK 73"O0TRO JUEGO? S/N? 

2050 IF INKEY$="s" THEN GO TO 2 
00 

2050 IF INKEY$="n” THEN PAPER 7 
: INK Or BORDER 7: STOP 

2070 GO TO 2040 

9000 POKE USR "A"+0,BIN 00000000 
9001 POKE USR "A"+1,BIN 00001000 
9002 POKE USR "A"+2,BIN 00011100 
9003 POKE USR "A"+3,BIN 00111110 
9004 POKE USR "A"+4,BIN O1111111 
9005 POKE USR "A"+5,BIN 00111110 
9006 POKE USR "A"+6,BIN 00011100 
9007 POKE USR “A"+7,BIN 00001000 
9010 POKE USR "B",BIN 00000000 
9011 POKE USR "B"+1,BIN 00111110 
9012 POKE USR "B"+2,BIN O1111111 
"9013 POKE USR "B"+3,BIN O1111111 
9014 POKE USR "B"+4,BIN O1111111 
9015 POKE USR "B"+5,BIN O1111111 
9016 POKE USR "B"+6,BIN 01111111 
9017 POKE USR "B"+7,BIN 00111110 
9020 RETURN 

9999 IF c(i)=1 THEN PRINT AT pt 
1,2),p(1,1)53 INK 1345": LET c(i 
)=0 
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4. Test musical 


Este es un buen programa en el que vas a tener que demostrar tus conocimientos 
musicales. 

En este programa debes decir qué notas ha dibujado el ordenador, y después en qué 
compás ha escrito la partitura. Como verás, el ordenador dibuja la partitura con gran 
perfección; también dibuja las notas, y fíjate en que no están en los gráficos definidos; en 
éstos sólo están los silencios. 


1) 


ou GRAFICO Fl 


GRAFICO E 


) 
11 
E 
o 


RAF TOdC 
E == GRAFICO 
SRAFICO E 


Fo uno GRAFICO F 


uNa 
¡ 
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N 


Esta es la presentación del programa: 


j | ] 
DOE MFSscSs ER EMAF 
DMHMLACLMFCS3 LLL ¡A 


A 
EL TIEMPO d.d EN 
UL) 


Pero el programa no sólo se reduce a eso, también ejecuta la partitura que ha escrito. 
Con el programa podrás ver qué poco sentido de la armonía tiene el Spectrum. 


O: 1 REM ** TEST MUSICAL *x 99 REM Mi PENTAGRAMA 

5 INK O: PAPER 7: BORDER 7: C 100 BEEP .1,20: LET A$="_______ 
o ¡LS COTO OO O A a o pl 

9 REM Bi SEMICORCHEA 110 LET A$=A4$+A$+0$+4$+A$: PRIN 
| 10 GO SUB 20: PLOT PEEK 23677, T *A$*>A5 

¡ PEEK 23678-4*J: DRAW -4,4%*J: RET 149 REM Mi CLAVE DE FA 

¡ URN 150 BEEP .1,15: PLOT 10,140: DR 
O! 19 REM BH CORCHEA AW 8,1,P1/.65: PLOT 10,140: DRAW 

20 GO SUB 30: DRAW 4,-4x*J:z RET 4,25,P1/1.6: DRAW 2,-40,P1/7:1 D 
O | URN RAW -5,0,-P1/.7 

29 REM AN NEGRA 159 REM Mi BASS CLEF 

30 PLOT X-1,Y+1: CIRCLE X,Y,1: 150 BEEP .1,10: CIRCLE 10,108,2 
O! CIRCLE X,Y,2: GO TO 40 .5: PRINT AT 9,23 OVER 13" ""5AT 

39 REM Mi BLANCA 8,23" ue" 
o! 40 CIRCLE X,Y,3: GD TO 60 489 REM Mi ELIGE LAS BARRAS ADE 

49 REM il REDONDA CUADAS 

50 CIRCLE X,Y,4: RETURN 490 LET BA=(1+(RND<.5))*(8+(RND 
O 59 REM Hi COLA <.5)*4): LET BAR=BA 

60 IF N<7 OR N>11 AND N<18 THE 494 DIM P$(14): DIM T$(14) 
O'N LET J=1: GO TO 65 496 DIM 0$(14) 

62 PLOT X-3,Y: LET J=-1 498 FOR Q=1 TO 14 
- 1. 65 DRAW 0,15x*Jz RETURN 499 REM Mil ELIGE LA NOTA 


' 
' 
1 
1 
I 
1 
1 
1 
1 
t 
' 
1 
I 
| 
! 
l 
t 
' 
1 
I 
' 
I 
I 
1 
1 
' 
I 
' 
! 
I 
I 
1 
I 
I 
| 
I 
' 
, 
I 
1 
1 
1 
1 
1 
I 
I 
1 
l 
1 
1 
1 
1 
l 
l 
1 
I 
1 
1 
l 
l 
I 
I 
I 
1 
1 
I 
1 


500 LET N=INT (RND*26) : 
NT (RND*5) 
505 REM MM 4/4 RITMO 
506 LET LE=2"L: LET BAR=BAR-LE: 
IF BAR<O THEN LET BAR=BAR+LE: 
LET L=L-1: GO TO 506 
509 REM Bl DIBUJA EL CENTRO DE 
LA NOTA 
510 LET X=16+0x*16: LET Y=72+4x%N 
519 REM Mii SILENCIO DE NEGRAS 
520 IF N=0 OR N=12 OR N=24 THEN 
PRINT OVER 153AT 12-N/2, 20+15 
” 


LET L=I 


525 REM Hi PUNTILLO 

526 LET D=BAR>=LE/2 AND L<4 AND 
L>0 AND RND>.7 

527 IF D THEN LET BAR=INT (BAR 
—LE/2): PRINT AT 12-N/2+(3 AND N 
=25) ,2*0+23 OVER 13" +" 

529 REM fill SILENCIO 

530 IF N=25 THEN PRINT OVER 1 
¡AT 3,0*2+23CHR$ (149-L): GO TO 
534 
REM El DIBUJA LA NOTA 

GO SUB 10x*(1+L) 
REM if BARLINES 

IF BAR=0 THEN LET BAR=BA: 
X+10,80: DRAW 0,80 
REM il BEEP 

LET T$(Q)=CHR$ (LE+D*LE/Z2): 
P$ (0) =B$ (N+1) 
545 BEEP CODE T$(Q)/10,CODE P$( 
Q)-48 

979 REM Mi NOMBRE DE LA NOTA 
580 LET F=N+1: IF F=26 THEN LE 
T F=8: GO TO 585 

591 IF F>7 THEN LET F=F-7: 
TO 581 

584 REM il O$=RESPUESTAS CORREC 
TAS 

585 LET 05$(0)=N$ (F) 

590 NEXT Q 

594 REM lil SUENAN LAS NOTAS 

595 FOR F=1 TO 14: BEEP CODE T% 
(F)/6,CODE P$(F)-68: NEXT F 

599 REM iii PREGUNTAS 
600 LET C=0 

603 DIM R$(14) 

605 FOR Q=1 TO 14 

610 PRINT AT 14,1+2x05 
3 OVER 13 PAPER 43" "5 
615 IF C=1 THEN (GO TO 630 

619 REM [ii PRIMERA OPORTUNIDAD 
620 INPUT TAB 43"NOMBRE DE LA N 
OTA"*>*>*" (MAYUSCULAS) "¿R$(QD): P 


[c]u] 


BRIGHT C 


RINT CHR$ 8;CHR$ B¿R$(D)3" " 

£25 GO TO 440 , 

628 REM Mil SEGUNDA OPORTUNIDAD 

629 DIM C$(1) 

630 INPUT "SI ESTA BIEN PULSA E 
NTER"**"SI ESTO NO ES ASI PULSA 
LA NUEVA RESPUESTA Y ENTER"; LIN 
E C$: IF C$<>"" THEN LET R$(Q)= 
Céx PRINT CHR$ 85R$(Q) 

650 NEXT Q 

660 IF C=0 THEN LET C=1: 

505 

669 REM MÍ ESCRIBE Y CUENTA LAS 

CORRECTAS 

670 FOR F=1 TO 14: 
1+2xF50$(F)5: IF O$(F)<>AS(F) TH 
EN LET C=C+1: PRINT CHR$ 8; OVE 
R 13 PAPER 53" " 

671 NEXT F 

573 REM MI EL TIEMPO 

676 INPUT "ENTER UN TIEMPO QUE 
SE AJUSTE"*" E.J. 2/4 "3 LINE T 
$: IF CODE T$<50 OR CODE T$>57 T 
HEN GO TO 476 

678 PRINT AT 19,2;"EL TIEMPO "; 
T$: INPUT "DE ACUERDO? PULSA ENT 
ER "3C$: IF C$<>"" THEN G0 TO 6 
76 

679 PRINT AT 19,225 ("SI" AND (Y 
AL T$*ib6=BA))+("NO" AND (VAL Téx 
16<>BA)) 

£80 PRINT AT 21,3; "PULSA UNA TE 
CLA": PAUSE O 

685 PRINT AT 
-C3" BIEN." 

691 CLS : GO TO 100 

699 REM MM INFORMACION 

700 LET B$="013578;<=?ACDFHIKMO 
PRTUNY"+"z" 

739 REM Mill NOMBRE DE LAS NOTAS 
LET N$="EFGABCDA" 

REM El GRAFICOS 

DATA 0,0,3,3,3,0,0,0 

DATA 240,240,240,0,0,0,0,0 
DATA 0,0,0,0,240,240,240,0 


60D TO 


PRINT AT 15, 


17,23 "TUVISTE "315 


753 DATA 0,136,240,128,64,32,32 
0 

, 

754 DATA 0,136,240,16,32,64,64, 
O 

755 DATA 0,136,240,14,224,32,64 
o 

, 

760 FOR F=0 TO 47: READ D: POKE 
USR "A"+F,D: NEXT F 

790 60 TO 100 

1000 SAVE "MUSICA" LINE 5 
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5. Adivino 


Tienes que pensar en un número entre 1 y 59. Después el ordenador te presentará seis 
“páginas” llenas de números. 

Después que el ordenador te presente cada pantalla de números, tienes que decirle si el 
número que tú has pensado está en esa página. Si está, pulsas “S”, y si no, pulsas “N”, 
Después de haberte presentado las seis pantallas, el ordenador te dirá qué número es. 


JoOoUDO 
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quitar, ya que no influyen para nada en el funcionamiento del mismo. 


número de línea un espacio en blanco y ENTER. 


A 

t 

O 1020 REM ** ADIVINO k 1290 FOR F=A TO 40 STEP 2x*A 
1 1130 CLS : PRINT AT 3,93 "ADIVINO 1300 FOR G=1 TO A 

o) ¡AT "Y 1310 IF C=8 THEN PRINT >”: LET 
1 1140 PRINT AT 7,053"Piensa un num | C=0: REM CUANDO LA LINEA DE PANT 

O ¡y ero entre 1 y 5%, ambos incluid | ALLA MUEVE LA POSICION DE IMPRES 
; Os, recuerdalo,"; ION DOS FILAS Y ENTONCES COLOCA 
: 1150 PRINT "con- centrate y cuan EL CONTADOR 

O ' do estes prepara-do pulsa ENTER. 1320 IF F+6G-1<10 THEN PRINT " *“ 
| se 3: REM MANTIENE LA POSICION "LIM 

O | 1160 PAUSE 0: IF CODE INKEY$<>13 PIA" 
!. THEN (GO TO 1160 1330 IF F+G6-1>59 THEN GO TO 135 

O ! 1170 CLS O: REM SUPRIME LOS NUMEROSINNECE 
' 1180 PRINT AT 3,9;"ADIVINO"5AT 4 | SARIOS 
A a ae 1335 BEEP .01,F+G: PRINT F+6-13" 

O |; 1190 PRINT AT 7,253"Escribire sei "5 
| s paginas llenas "””*"de numeros 1340 LET C=C+1 

O ! diferentes.Lee cada "*”"pagina" 1350 NEXT G:z NEXT F 
E 1350 PRINT AT 146,6;"PULSA S O N" 
! 1200 PRINT " separadamente, y si 1370 PAUSE O 

O y ves tu”””* "numero entre esos list 1380 IF INKEY$="S" THEN LET T=T 
, ados en  "**"tonces pulsa "; +A: GOD TO 1400 

O ¡ 1210 PRINT "la tecla S,y si no " 1390 IF INKEY$<>"N" THEN BEEP . 
2? "lo ves pulsa N.” 01,20: GO TO 1360 

o! 1220 PRINT ”?"Pulsa ENTER cuando 1400 CLS : NEXT E 
estes prepa- "””"rado para la pr 1410 PRINT AT 3,9;"”ADIVINO"5AT 4 
; imera pagina." y 93 " 

O : 1230 PAUSE Oz IF CODE INKEY*$<>13 1420 PRINT AT 7,05"EL NUMERO QUE 
ii THEN GO TO 1220 PENSASTE ES:" 

'0) ! 1240 CLS 2: POKE 23658,8: REM PON 1430 PRINT AT 11,13;3T 
; E MAYUSCULAS + 1440 PRINT AT 17,0;3"PULSA ENTER 
; 1250 LET T=0: REM INICIALIZACION PARA HACELO OTRA VEZ" 

O ; 1260 FOR E=1 TO 4 1450 PAUSE O: IF CODE INKEY$<>13 
; 1265 THEN GO TO 1450 

O | 1270 READ Az LET C=0: REM INICIA | 1460 RUN 
; LIZA LA CUENTA DE LAS IMPRESIONE 1470 SAVE "ADIVINO" LINE 1130 
' 5] 1480 DATA 1,2,4,8,16,32 

O | 1280 PRINT AT 6,05 
4 
E 
L 


¡ME 


El programa tiene gran cantidad de sentencias REMark que te van explicando qué es lo 
que hace en cada momento. Si quieres ahorrarte trabajo al copiar el programa, las puedes 


En un listado puedes conseguir líneas vacías, como la 1255, tecleando después del 
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6. Serpientes 


Este es un juego diseñado para dos. Cada uno lleva una serpiente y el objeto es encerra 
a la serpiente contraria. 

Las serpientes están constantemente creciendo y cada jugador debe evitar chocarse con 
su propia cola o con la del contrario. Fíjate que si una serpiente se sale por un lado de la 
pantalla, aparece por el lado opuesto. 


CCT 


II 


Como el programa usa la sentencia IN en vez de INKEYS$ el ordenador puede recono- 
cer todas las teclas que se pulse, aunque se presionen a la vez. 
Los controles son: 


SERPIENTE NEGRA 


B—-Para ir a la izquierda. 
N—-Para bajar. 

M——Para subir. 

Symbol Shift—Para ir a la derecha. 


SERPIENTE BLANCA 


1—Para ir a la izquierda. 
2—Para bajar. 
3—Para subir. 
4—Para ir a la derecha. 


. 
' 1 
| 1 REM x** SERPIENTES x*x SUB 9000 0 
! 5 6D SUB 8000 230 IF H=4 THEN LET M=M+1: GD ' 
9 LET A$="": LET Pi=0: LET P2 | SUB 9000 ro 
|| =0: LET B=0: LET H=0 240 IF X=21 THEN LET X=1 
10 LET X=1: LET Y=1: LET N=20: 250 IF X=0 THEN LET X=20 

O | LET M=30 259 IF N=21 THEN LET N=1 ¡8 
20 PRINT AT X,Y3"0"5AT N,M3 IN 260 IF N=0 THEN LET N=20 

O | VERSE 13"0" 261 1F Y=31 THEN LET Y=1 10 
| ——3O LET A=IN 63486: LET C=IN 32 262 IF Y=0 THEN LET Y=30 
766 270 IF M=31 THEN LET M=1 l 

O 45 BEEP .004,20 271 IF M=0 THEN LET M=30 j O 
| 50 IF A=253 THEN LET B=1 290 GD TO 20 

e 60 IF A=251 THEN LET B=2 8000 INPUT "JUGADOR 1. POR FAVOR O 
70 1F A=254 THEN _LET B=3 TU NOMBRE: "3 LINE N$ 

O 80 IF A=247 THEN LET B=4 8010 INPUT "JUGADOR 2. POR FAVOR o) 
; 100 IF B=1 THEN LET X=X+1i: GO TU NOMBRE: "3 LINE M$ | 
; SUB 9500 8015 CLS 

O 110 IF B=2 THEN LET X=X-1: GO 8020 RETURN O 
¡ SUB 9500 8030 LET Pi=P1+1 

O! 120 IF B=3 THEN LET Y=Y-1: G0 8031 PRINT AT N,M3 FLASH 13"B"z 10 
; SUB 9500 FOR A=0 TO 10: FOR S=1 TO 7: BE : 
¡ 130 IF B=4 THEN LET Y=Y+1: GO EP .01,A+S: NEXT S: NEXT A 1 

O | suB 9500 8032 CLS ¡9 
¡ 150 IF C=247 THEN LET H=1 8035 IF P1=P2 THEN LET A$="NADI 

O | 160 IF C=251 THEN LET H=2 E" o 
; 170 IF C=239 THEN LET H=3 8040 IF P1>P2 THEN LET A$=N$ 

o 180 IF C=253 THEN LET H=4 8045 IF P2>P1 THEN LET A$=M$ NS 
; 200 IF H=1 THEN LET N=N+1: GO 8046 PRINT AT 5,554M$;" ESTA GANA | 
|; SUB 9000 NDO “3AT 7,5; "JUGADOR 1-"5P15AT 

o; 210 IF H=2 THEN LET N=N-1: GO 8,55 "JUGADOR 2-"3P2 ¡O 
¡ SUB 9000 8047 PRINT AT 12,5;"UNA TECLA PA 

O! 220 1F H=3 THEN LET M=M-1: (GO RA EMPEZAR" la, 


8048 IF INKEY$="" THEN GO TO 80 


193 "JUGADOR 2-"5P2 


t 
¡ 
961 PAUSE 30 8095 PRINT AT 12,53 "UNA TECLA PA ' 
8049 CLS 1 GO TO 5 RA CONTINUAR" Lo 
8060 LET P2=P2+1 8096 1F INKEY$="" THEN GO TO 80 | 
S8061 PRINT AT X,Y3 FLASH 15"mI"z | 96: PAUSE 30 
FOR A=0 TO 10: FOR S=1 TO 7: BE | 8097 CLS : 60 TO 5 1 O 
EP .01,AM+5: NEXT S: NEXT A 8100 RETURN 
8062 CLS 9000 IF SCREENS (N,M)<>" " THEN | y 
8065 IF Pi=P2 THEN LET A$="NADI 60 TO 8030 : 
E" 9010 RETURN 
8070 IF P1>P2 THEN LET A$=N$ 9500 IF SCREENS (X,Y)<>" " THEN | O 
8080 IF P2>P1 THEN LET A$=M$ GO TO 8040 
8090 PRINT AT 5,554$3" ESTA GANA | 9510 RETURN i 
DO "¿AT 7,55 "JUGADOR 1-"5P15AT 8 1 O 
ii 
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PARTE OCTAVA 


SIMULACIONES 


1. Ataque nuclear 


El escenario de este juego, escrito por Tim Rogers, no es especialmente muy agradable. 
Tu ciudad es el blanco de un montón de bombas atómicas, y tu cometido es proteger a tanta 
gente como puedas del ATAQUE NUCLEAR. 

Si tienes cualquier objeción a este escenario, puedes inventarte cualquier otro; por 
ejemplo, imagina que es otoño, un hormiguero está debajo de un árbol y le caen las hojas, o 
cualquier otra cosa que quieras; cada vez que se adentra más el otoño, la probabilidad de 
que caigan las hojas irá aumentando hasta que al final caen, como ocurre aquí con las 
bombas. 

Este juego se puede incluir en los juegos llamados SIMULACIONES, que son aquellos 
juegos del ordenador que tienden a simular un aspecto de la realidad. Estos programas 
esperan que administres los limitados recursos con que cuentas, de tal forma que puedas 
adquirir todas las cosas que necesitas para continuar la existencia en la ciudad, nación o 
planeta que esté bajo tu gobierno. 

En este caso tus recursos son el dinero, y las necesidades son comprar toda la cantidad 
de escudo atómico que puedas, y de esta manera salvar al máximo número de personas que 
están a tu cargo. Este análisis del juego da a entender que cualquier escenario que necesite 
comprar una sola cosa para continuar su existencia podría usarse como escenario de este 
programa. Lo único esencial que tienes que variar es lo que dicen las sentencias PRINT. 

La idea, como ya habrás imaginado, es proteger tanta gente como puedas del desastre 
nuclear. 

Empiezas con una cantidad de dinero que va aumentando cada año a un cierto interés. 
Tú debes decidir entre comprar escudos y gastar casi todo el dinero, o guardar el dinero en 
orden a comprar después más escudos, cuando el ataque nuclear sea más probable. El único 
problema de la idea anterior es que si hay un ataque nuclear y tú no tienes nada de escudo, 
no quedará ningún superviviente. 
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En la mayor parte de todos los juegos de este tipo, si una cierta porción de la gente bajo 
su gobierno muere, da igual por lo que muera: por una plaga, una invasión, hambre...; 
entonces el gobernador es asesinado, linchado, encarcelado, o... En este caso, si más de la 
mitad de la población muere del ataque nuclear, las masas, en este caso, ya no serían masa 
porque el número es muy pequeño; se levantarían contra ti y echarían a tu familia y a ti del 
poder. 

Así que debes tener cuidado en cómo administras el dinero. Debes saber que en este 
juego la amenaza de ataque nuclear va aumentando cada año que pasa; por eso al principio 
es aconsejable que ahorres, pero al final no. Al final la probabilidad de ataque nuclear es casi 
de uno sobre uno. 

Gran parte del programa son las instrucciones, así que si el juego que vas a copiar va a 
ser para tu uso personal (o simplemente eres un vago), puedes omitir las instrucciones (desde 
la línea 165 hasta la 450). 

Cuando pidas las instrucciones, la pantalla se borrará (línea 200), y la subrutina que 
dibuja el título será llamada otra vez (desde la línea 100). 

Las primeras líneas del programa definen algunas variables, como la usada para el 
dinero, otra para el escudo, etc. Después la acción salta a la subrutina que imprime el título 
en la pantalla; ésta escribe el nombre del programa con una presentación muy eficiente. La 
subrutina que escribe el título es llamada cada vez que se borra la pantalla. 

El ordenador te preguntará si quieres instrucciones, y esperará hasta que pulses “s”í o 
“no; fíjate que las contestaciones tienen que estar en minúsculas, no solamente aquí, también 
durante todo el juego. Después de escribir las instrucciones, si las has pedido, el ordenador te 
presentará la población que queda en la ciudad, el dinero y la probabilidad de ataque 
nuclear. El juego te preguntará cuánto dinero quieres gastar en el escudo. Si quieres vender 
escudo puedes poner números negativos. No puedes comprar más escudo del que puedas 
pagar; no puedes vender más del que tengas. 

Al jugar se genera un número aleatorio que te indica la probabilidad de ataque nuclear; 
si la probabilidad es uno, el ataque se realiza y el programa salta a la rutina de ATAQUE 
NUCLEAR, que te escribe en letras grandes ¡ATAQUE NUCLEAR! 

Después el ordenador escribirá cuántos supervivientes hay, lo que depende —por su- 
puesto— de la cantidad de escudo que tuvieras. Parte del escudo será dañado en el ataque. 
Si más de la mitad de la población muere en el ataque, los sobrevivientes se rebelarán contra 
ti. En caso de que esto no ocurra, la vida continúa “normal”, pero la población ha 
disminuido (lo que hace el juego más fácil a partir de ese momento, ya que tienes que 
comprar menos escudo). 

Todos los datos importantes son presentados al acabar los veinte años de tu “reinado”. 
El objetivo es conservar en esos veinte años tanta gente como puedas. Si quieres modificar el 
programa, puedes poner más comentarios, añadir más factores agradables que tengas que 
dominar, como perros rabiosos, plagas; así puedes gastar parte del dinero en medicinas o en 
perreros. 


224,144,144,228,159,132,132,132, 


] 

I 

1 REM xx% ATAQUE NUCLEAR *%* ¡ 
£60,66,798,82,74,70,55,0 l 
1 

J 

' 


pl 

' 

4 FOR n=0 TO 23: READ 1: POKE 
' USR "N"+n,1a NEXT n 

í 5 DATA 0,56,0,120,68,68,68,0, 


10 LET M=10000 
20 LET P=10000 


0) 


O 


LET S=0 

LET D=0 

LET N=0 

GO TO 160 

PRINT AT 0,23"A TAQUE 
CLEAR" 

PRINT TAB 95"ESCUD O” 


120 PR I NT "III RIA III II IEA 
RIHANNA 

130 PRINT 

150 PRINT ,»,, 

155 RETURN 

160 GO SUB 100 

165 PRINT "QUIERES INSTRUCCIONE 
s? ” 

170 PRINT TAB 10;"PULSA S/N" 


IF INKEY$<>"S" AND INKEY$<> 
"s" AND INKEY$<>"n" «AND INKEY$< > 
"N" THEN 60 TO 180 

190 IF INKEYS$="N" 

THEN GOD TO 460 

200 CLS 

210 GO SUB 100 

220 PRINT " Las autoridades esp 
añolas te han puesto a cargo 
de "; 

230 PRINT "la defensa civil de 
la ciudad. Esto ocurre en un mom 
ento "5; 

240 PRINT "en el que es muy pr 
obable que cualquier otra na- ci 
on ” 5 

250 PRINT "desee bombardearnos 
con mi-siles nucleares.” 

260 PRINT " Tu trabajo es decid 
ir cuanto dinero vas a gastar 
LES 

3 

270 PRINT "en los escu-dos nucl 
eares de la ciudad cada arño.”;3 

280 PRINT "Empiezas con una pob 


180 


OR INKEY$="n" 


lacion de 10000 habitantes ,100 
00 Fr y sin escudos (estos se m 
iden en metros cubicos)." 


285 PRINT +15 FLASH 15"PULSA EN 
TER PARA CONTINUAR" 


286 PAUSE Oz PAUSE O 

287 IF INKEY$<>"" THEN GO TO 2 
87 

288 CLS 

290 PRINT " Cada ciudadano nece 
sita 10 metros cubicos para "j 
300 PRINT "sobrevivir, cada met 


ro cubico cuesta 1 Fr." 

310 PRINT " El dinero que no ga 
stas al año en el escudo”; 

320 PRINT " aumenta con un 10% 


240 


de interes." 

327 PRINT " Por eso tienes que 
decidir si vas a ahorrar "; 

330 PRINT "dinero para des- pu 
es o proteger desde el prin- ci 
pio a tanta gente como puedas." 


350 PRINT  INK 75 PAPER 45 INK 
25 FLASH 15"ATEN"; PAPER 23 INK 
63"CION:"5 FLASH 03 PAPER 75 INK 


053" La probabilidad de a— taque 
nuclear aumenta cada año." 


360 PRINT 

370 PRINT "Buena suerte: Pulsa 

una tecla para empezar." 

380 PRINT 415" PULSA UNA TECLA 
PARA CONTINUAR"z PAUSE O: PAUSE 
0 

390 IF INKEY$="" THEN (GO TO 39 
o 

500 FOR Y=1 TO 19 

510 CLS 

520 GO SUB 100 

530 PRINT TAB 93"AFID "Y 

540 PRINT 

550 PRINT "Probabilidad de ataqg 


ue "¿TAB 18,"de ";20-Y3" a 1" 


560 PRINT "Poblacion"3TAB 18;P 
570 PRINT "Escudo "¿TAB 1835 
580 PRINT "Dinero "¿TAB 183M3" 
Fr" 

590 PRINT "Muertos"3TAB 183D 
£00 PRINT "Ataques nucleares"3T 
AB 183N 

610 INPUT "Cuanto vas a gastar 


en escudo? ",A 

620 IF M-A<O OR S+A<O0 THEN GO 
TOD 610 

630 LET M=M-a 

640 LET S=5+A 

650 LET M=M+INT (M/10+.5) 

655 IF Y=21 THEN GO TO 480 

660 IF INT (RND*(20-y))+1=1 THE 
N (GO SUB 1000 

670 NEXT Y 

680 CL5S 

685 GO SUB 100 

690 PRINT "BIEN HECHO..." 

700 PRINT "TE LAS ARREGLASTE P 
ARA PASAR POR ESTOS AFIOS TURB 
ULENTOS CON1",, 

720 PRINT M3" pp" 

730 PRINT P3" GENTE" 

740 PRINT Sj" METROS CUBICOS DE 

EscuDpo" 

750 PRINT 
RA PARTIDA 


57) QUIERES JUGAR OT 
(S/N)?" 


O Q:<:O 


760 IF INKEY$<>"N" AND INKEYS$< > 1060 PRINT "NUMERO DE MUERTOS ", 
"S" AND INKEY$<>"s" AND INKEY$<> | X 


' 1 
: 
¡ 
O ¡ "n" THEN 60 TO 740 1070 LET D=D+X O 
¡ 770 IF INKEYS="N" OR INKEYS$="n" 1080 LET S=S-INT (S/10+.5) 
o. THEN PRINT ,,,,"FIN DEL PROGRA | 1090 PRINT " 
] MA" . , O 
! 780 CLS 1100 PRINT "ESCUDOS NO DAFIADOS | 
O ¡ 790 RUN "ss ¡O 
; 1000 CLS 1105 PRINT " 
O 1 1005 LET N=N+1 " O 
¡; 1015 FOR A=1 TO 44 1110 INPUT "Pulsa ENTER para con 
! 1020 PRINT PAPER 23 FLASH 13 IN | tinuar "5 LINE as 
O ¡ K 75"ATAQUE NUCLEAR! "5 1120 IF x/p>.9 THEN GO TO 1500 1 O 
¡ 1025 BEEP .1,10 1130 LET p=p-x 
O | 1030 NEXT A 1140 RETURN Lo 
; 1035 GO SUB 100 1500 CLS 
O ; 1040 CLS 1 LET x=INT (s/10+.5) 1505 GO SUB 100 ! 
; 1045 PRINT "POBLACION PROTEGIDA 1510 PRINT "Mas de la mitad de 1! O 
1 "¿X, a poblacion murio en la explosio | 
O ¡ 1050 PRINT ” n y hubo unarevolucion contra tu ¡ y 
" gobierno." ' 
O 1055 LET X=P-X 1520 60 TO 750 ' o 
t I 
1 


2. Un día en las carreras 


Este programa de Jim Walsh te permite pasar un día en el canódromo sin necesidad de 
salir de casa. Sigue las instrucciones para hacer las apuestas, marca el número de vueltas, y 
prepárate para una carrera llena de trepidante acción. 
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La carrera es rápida y la presentación es buena en este ejemplo de simulación. 


Los gráficos que usa el programa son: 


yo 


ES ed E A A 


RAF ICO 


Fx 


Es 


É 
O 1 REM ** UN DIA EN LAS x** 


O 


O 


O 


O 


2 REM *x CARRERAS +. 
3 GO SUB 2010 
4 GO SUB 2000 
5 
7 


LET PERRO=-1t LET FLASH=0 


t 

LET FL=0 

| 10 LET W=12 LET X=1: LET Y=1: 

¡ LET Z=1 

12 DIM L(4): FOR N=1 TO 42 LET 
¡O L(N)=1a NEXT ON 

' ——3O BORDER O: GD SUB 100 

35 PRINT AT 2,75 PAPER 63 INK 


, 13 FLASH 13 BRIGHT 13"HAGAN SUS 
; APUESTAS! "2 INPUT "CUANTAS VUELT 
¡AS "3TS 


36 FOR N=1 TO LEN T$: IF CODE 
T$ (N)<48 OR CODE T$(N)>57 THEN 
GO TO 35 

38 NEXT Nz LET TOT=VAL T$ 

40 PRINT AT 2,7; PAPER 43" 

" 

41 PAUSE 100: BEEP .5,0: PRINT 
AT 2,75 PAPER 63 INK 15 BRIGHT 
3 FLASH 13"*PREPARADOS+": PAUSE 
100: PRINT AT 2,75 PAPER 43" 

"z PAUSE 100 


1 


1 
I 
I 
' 
! 
1 
1 
] 
! 
! 
! 
1 
' 
! 
1 
' 
1 
1 
1 
' 
' 
I 
' 


45 BEEP .5,12:3 PRINT AT 2,73 P 


APER 63 FLASH 13 BRIGHT 13 INK 1 
5 nu "ZA YA HA >" 
50 PAUSE 10: LET FLASH=1: GO S 


UB 100: GO SUB 310: 
110 PRINT AT 7,05 INK 13"1"5AT 
9,03 INK 43"2"5AT 11,03 INK 23"3 

“5 AT 13,03 INK 33"4" 
112 FOR N=0 TO 4: PRINT AT N,O;3 
PAPER 45" 
"az NEXT ON: 
PRINT AT N,O; 


GO TO 400 


FOR N=16 TO 
PAPER 43" 
Ma N 
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EXT N 

114 PRINT AT 17,03 PAPER 6; 
15 "VUELTAS" 

115 PRINT AT 7,13 INK 13"=""3AT 
9,13 INK 45">="5AT 11,13 INK 25 
MEAT 13,15 INK 35" 
120 60 SUB 300 

122 GO SUB 320 

125 GO SUB 310 

130 GO SUB 330 

135 RETURN 

300 PLOT OVER 118,561 
VER 130,71: RETURN 


INK 


DRAW OD 


O Ó 0 


0) 
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1 
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310 PRINT OVER 13 PAPER 43AT 2 
313 INK 253"C"5AT 3,3153"D";AT 4, 
31;3"D"z BEEP .1,20: RETURN 

320 PLOT OVER 1;5250,56:3 
OVER 150,71: RETURN 

330 PRINT AT 5,053 FLASH FLASH; 
I NK 6 5 PAPER ] 3 se Aa aa 


ASS 1 2. A ” 
CA PT Mo mu a 


335 PRINT AT 15,05 FLASH FLASH; 
INK 55 PAPER 65 a pa 


DRAW 


340 RETURN 

350 PRINT AT 2,145 PAPER 63 INK 
15 BRIGHT 15 FLASH 15 "ULTIMA VU 
ELTA": RETURN 

399 REM 


400 LET PERRO=PERRO*-1: IF PERR 
O=1 THEN LET D$="A" 


405 IF PERRO=1 THEN LET D$="-" 


406 REM cc 
410 PRINT AT 7,W3" "e LET R=RND 
*10: IF R>7 THEN LET W=9W+1 

414 IF W>30 THEN LET L(1)=L (1) 
+1 

415 IF W>30 THEN LET W=1 

416 LET T=Ww IF TOT=L (1) THEN 


GO SUB 1000 


420 PRINT AT 7,W3 INK 15D$ 
421 REM 
425 PRINT AT 9,X3" ": LET R=RND 
*101 IF R>7 THEN LET X=X+1i 


IF X>30 THEN LET L(2)=L (2) 


IF X>30 THEN LET X=1 
431 LET T=X: IF TOT=L. (2) THEN 
GO SUB 1000 


435 PRINT AT 9,X3 INK 45D$ 
436 REM oo ata 
440 PRINT AT 11,Y3" ": LET R=RN 


D*10: IF R>7 THEN LET Y=Y+1 
444 1F Y>30 THEN LET L(3)=L (3) 
+1 

445 IF Y>30 THEN LET Y=1 

446 LET T=Y: IF TOT=L (3) THEN 
GO SUB 1000 


450 PRINT AT 11,Y5 INK 23D$ 
ASLIREM o o is 
455 PRINT AT 13,23" ": LET R=RN 


Dx10: 1F R>7 THEN LET Z=Z+1 
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459 IF Z>30 THEN LET L(4)=L (4) 
+1 

450 IF Z>30 THEN LET Z=1 

461 LET T=Zi IF TOT=L (4) THEN 


GO SUB 1000 

465 PRINT AT 13,73 INK 3;D$ 

466. REM 
470 PRINT AT 18,0; PAPER 735 INK 


15"1 EN "¿L(1)53AT 19,05 INK 43" 
2 EN "5L(2)5AT 20,03 INK 253"3 EN 
"s5L(3)3AT 21,03 INK 35"4 EN "5L 

(4) 

480 GO TO 400 
1000 LET FL=FL+1:2 
GO SUB 320 
1005 IF FL=1 THEN 
1007 IF FL=1 THEN 
1010 IF T=30 THEN 
1015 RETURN 
1020 LET FLASH=0: 
1022 GO SUB 350 
1025 LET W=W+L (1): LET X=X+L(2)3 

LET Y=Y+L (3): LET Z=+L (4) 

1030 LET TOT=TOT+30 
1035 IF W=TOT THEN 
1040 IF X=TOT THEN 
1045 IF Y=TOT THEN 
1050 IF Z=TOT THEN 
1055 PRINT AT 2,55 
15 FLASH 15 BRIGHT 

ES El No. "3END 
1060 BORDER 0: FOR N=1 TO 12: 
EP .1,Nz NEXT ON 
1070 FOR K=1 TO 2: 

BORDER Nz PAUSE 10: 
TK 
1075 RUN 5 
2000 BORDER 6: PAPER 6: INK 1: C 
LS : PRINT AT 4,15"""PASA UN DIA 

EN LAS CARRERAS !"""3>>" ""TEN 

UN DIA EMOCIONANTE! !" 

2005 PAUSE 400: RUN 5 

2010 DATA 3,3,124,56,68,130,0,0, 
3,30,124,56,40,16,0,0,0,112,248, 
248,248,112,32,32,32,32,32,32,32 


IF FL=i THEN 


GO SUB 310 
GO SUB 350 
GO TO 1020 


GO SUB 330 


LET END=1 
LET END=2 
LET END=3 
LET END=4 
PAPER 73 INK 
15"EL GANADOR 


BE 


FOR N=0 TO 7: 
NEXT Nz NEX 


132,32), 32 
2015 RESTORE 2010: FOR N=USR "A" 
TOD USR "C"z READ Az POKE N,Az N 
EXT Nz RETURN 
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3. Fuego a discreción 


Este es un programa en el que pueden jugar uno o dos jugadores; en él disparas un 
cañón para conseguir dar al contrario antes de que el contrario te dé a ti. 

Al empezar el juego se te preguntará si son dos o un solo jugador; también te 
preguntará el juego qué nivel de dificultad quieres (1 hasta 4); este nivel de dificultad indicará 
el tamaño de los tanques. 

Aunque el programa es un poco lento, verás que la presentación está bastante bien 
conseguida. 
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Para disparar tienes que introducir dos datos en el ordenador: 


1—Angulo en grados sexagesimales que quieres dar al cañón al disparar. 
2.—Fuerza con la que quieres que salga el proyectil. 


Aunque el programa es bueno, tú puedes añadir mejoras; por ejemplo, te habrás fijado 
que el cañón permanece igual, aunque cambies los grados de disparo. ¿Por qué no haces que 


el programa vaya girando el cañón dependiendo de los grados que le has puesto? 
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1 REM * FUEGO A DISCRECION +* 
5 RANDOMI ZE 
10 DEF FN Y(X)=INT (HEIGHT*SIN 
((X-XMIN)*PI/(XMAX-XMIN))) 
20 DEF FN X(Y)=INT (XMIN+((XMA 
X—-XMIN)/PI)*ASN (Y/HEIGHT)) 


30 DEF FN A(X)=CENTRO*2-X 

40 DIM C(150,2) 

50 LET PUNTOS1=0: LET PUNTOS2= 
Le] 

70 GO SUB 9000 

100 BORDER 2: PAPER 71 INK 12 C 
LS 

110 CLS 

120 LET ANGLE1=0: LET ANGLE2=-1 


1: LET FORCEi=0: LET FORCE2=0 
200 LET HIT=0 


300 PRINT AT 0,03 PAPER 23" 


310 PRINT AT 1,45 INK 
73PUNTOS1 

320 IF NUMP=2 THEN PRINT AT 1, 
273 PAPER 23 INK 75PUNTOS2 

1000 LET CENTRO=INT (RND*40+105) 
1010 LET WIDTH=INT (RND*450+40) 
1020 LET XMIN=(CENTRO-WIDTH72) 
1030 LET XMAX=(CENTRO+WIDTH/2) 
1035 LET HEIGHT=INT (RND+*40+953) 
1040 LET Yi=INT (RND*70+20) 

1050 LET Y2=INT (RND*70+20) 

1060 LET YSHIFT=Y1: 1F Y1>Y2 THE 
N LET YSHIFT=Y2 

1065 LET YSHIFT=YSHIFT-15 

1070 LET Yi=Y1-YSHIFT: LET Y2=Y2 
-YSHIFT 
1080 LET 
1090 LET 
1100 LET 
1110 LET 
T Y=Y2 
1120 FOR 
1130 PLOT 0, I:x 
1140 NEXT I 


PAPER 2; 


HEIGHT=HEIGHT-YSHIFT 
XSTART=FN X(Y1) 
XEND=XMIN+XMAX-FN X(Y2) 
Y=Y1: IF Y2<Y1 THEN LE 


1=0 TO Y 
DRAW 255,0 
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1150 IF Y1>Y2 THEN G0 TO 1200 
11650 FOR I=Y1 TO Y2 

1170 LET X=FN X(1) 

1180 PLOT X,l:z DRAW 255-X,0 
1190 NEXT I 

1195 GO TO 1250 

1200 FOR I=Y2 TO Yi 

1210 LET Xi=FN X(1)3 LET X=FN AC 
x1) 

1220 PLOT 0,I: DRAW X,0O 

1230 NEXT I 

1250 LET Y=Y1:82 1F Y2>Y1 THEN LE 
T Y=Y2 


12640 FOR I=Y TO HEIGHT-1 
1270 LET Xi=FN X(1): LET 
(Xx1) 

1280 PLOT X1,1I: 


X2=FN A 


DRAW X2-X1,0 


1290 NEXT 1 
1295 LET HEIGHT=HEIGHT-1 
2100 LET CANNONi=INT (XSTART/4+R 


ND* (XSTART/2-5)) 

PLOT CANNON1-DIF,Y1 

DRAW DIF*2,DIF+*2 

DRAW —DIF,-DIF 

DRAW DIF,-DIF 

LET X1=255-XEND 

2200 LET CANNON2=INT (255-X1/4-R 
ND+* (X1/2-5)) 

2210 PLOT CANNON2+DIF,Y2 

2220 DRAW -DIF*2,DIF*2 

2230 DRAW DIF,-DIF 

2240 DRAW -—DIF,-DIF 

2370 IF NUMP=2 AND PUNTOSi1 >PUNTO 
S2 THEN (GO TO 3100 

3000 IF NUMP=2 THEN PRINT AT O, 
O; PAPER 23 INK 75 "JUGADOR 1 


3010 IF FORCE1<>0 THEN PRINT AT 
2,05 "ANT. , ANGULO "5ANGLE15" , F 
UERZA "5FORCE1 

3015 LET A=ANGLE1: LET F=FORCE1 
3020 GO SUB 8000 : 


3030 LET FORCEi1=FORCE: LET ANGLE 


1=ANGLE 

3040 LET FORCE=FORCE/2 

3060 LET XX=CANNON1+DIF1 LET YY= 
Y1+DIF*2 


3070 LET PLAYER=1 

3080 GO SUB 40003 IF  hit=1 THEN 
GO TO £5000 

3090 GO SUB 5000 

3095 IF nump=1 THEN GO TO 3000 

3100 PRINT AT 0,035 PAPER 23 INK 

73" JUGADO 

R 2" 

3110 IF FORCE2<>0 THEN PRINT AT 

2,03 "ANT. ANGULO "5ANGLE2;", FU 


3115 LET A=ANGLE2: 
3120 GO SUB 8000 
3130 LET FORCE2=FORCE: 
2=ANGLE 

3140 LET FORCE=FORCE/2 
3160 LET XX=CANNON2-DIF* 
Y2+DIF*2 

3170 LET PLAYER=2 
3180 GO SUB 4000: 
60 TO 6000 

3170 GO SUB 5000 
3200 GO TO 3000 
4000 LET ANGLE=ANGLE/57. 3: 
UM=0 

4010 LET FX=FORCEX*COS (ANGLE): L 


LET F=FORCE2 


LET ANGLE 


LET YY= 


IF HIT=1 THEN 


LET N 


ET FY=FORCE*SIN (ANGLE): IF PLAY 
ER=2 THEN LET FX=-FX 

4020 LET NUM=NUM+1 

4030 LET C(NUM,1)=XX3 LET C(NUM, 
2)=YY 

4040 LET FY=FY-.10 

4140 LET TX=XX: LET TY=YY: LET X 
X=XX+FX2 LET YY=YY+FY: LET XI=IN 


T XX: LET YI=INT YY 

4150 IF XI<1 OR X1>254 THEN GO 
TO 4600 

4152 IF YI>=160 THEN LET XX=XX+ 
FX*INT (FY/.1): LET FY=-FY: GO T 
O 4200 

4160 IF YI>HEIGHT THEN GO TO 41 
90 

4162 IF XI<XSTART AND XI>(CANNON 
1+DIF) AND YI>Y1 THEN GO TO 419 
o 

4163 IF XI>XEND AND XI< (CANNON2— 
DIF) AND YI>Y2 THEN GO TO 4190 
4164 IF XI<(CANNONi-DIF) AND YI> 
Yi THEN GO TO 4190 

4165 IF XI>(CANNON2+DIF) AND YI> 
Y2 THEN GO TO 4190 


4166 IF XI>=(CANNON1—-DIF) AND XI 


<=(CANNON1+DIF) AND YI>(Yi+DIF*2 
) THEN GO TO 4190 

4167 IF XI>=(CANNON2-DIF) AND XI. 
<=(CANNON2+DIF) AND YI>(Y2+DIF+*2 
) THEN GO TO 4190 

4170 IF POINT (XX,YY)=1 THEN 60 
TO 4300 

4190 PLOT XX, YY 

4200 REM 

4210 REM 

4220 IF YY>=160 THEN GOD TO 4040 
=4230>60 TO 4020 

4300 LET X=ABS (CANNON1-XX) 

4310 IF X<=DIF THEN LET PUNTOS2 
=PUNTOS2+1: GO TO 4350 

4320 LET X=ABS (CANNON2-XX) 

4330 IF X<=DIF THEN LET PUNTOSi 
=PUNTOSi+1: GO TO 4350 

4340 GO TO 4600 


4400 PRINT AT 0,105 PAPER 23 INK 
75 FLASH 15"xx%* TANTO *eke" 
4410 PRINT AT 1,43 PAPER 23 INK 


75 PUNTOS1 

4420 IF NUMP=2 THEN PRINT AT 1, 
275 PAPER 23 INK 75PUNTOS2 

4430 LET HIT=1 

4600 RETURN 

5000 FOR I=1 TO NUM 

5010 PLOT INVERSE 13C0(1,1),CCI, 
2) 

5015 BEEP .01, (C(1,2)-C(1,2))/2 
5020 NEXT 1 

5030 RETURN 

£000 PRINT AT 4,53 "OTRO JUEGO (S 
102" 

6001 FOR I=1 TO 10 

£002 BEEP .01,1 

6003 NEXT 1 

6005 LET A$=CHR$ (PEEK 23560) 


6010 IF A$="S" OR A$="s" THEN 6 
O TO 100 

6020 IF A$<>"N" OR a$<>"n" THEN 
GO TO 4001 

6030 PAPER 7: INK O: BORDER 7: C 

Ls 

6040 IF NUMP=1 AND PUNTOS1i=1 THE 

N PRINT "1 BLANCO": GO TO 6100 


6050 IF NUMP=1 THEN PRINT PUNTO 
S1;" BLANCOS": GD TO 6100 


£060 IF PUNTOSi=1 THEN PRINT "J 
UGADOR 1 1 1 TANTO" 

6070 IF SCORE1<>1 THEN PRINT "J 
UGADOR 1 : "5PUNTOS15"” TANTOS" , 
6080 IF PUNTOS2=1 THEN PRINT "J 
UGADOR 2 : 1 TANTO" 

6090 IF SCORE2<>1 THEN PRINT "J 
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UGADOR 2 : "5PUNTOS23" TANTOS" 

6100 STOP 

8000 PRINT AT 3,03"METE ANGULO ( 

0-90): "5 

8010 GO SUB 9900: LET ANGLE=val 

8015 IF TEMPPOS=0 THEN G0- TO 80 

10 

8020 IF ANGLE<O OR ANGLE>90 THEN 
FOR I=i TO LEN B$:z PRINT CHR$ 

83CHR$ 323CHR$ 83: NEXT l2z GO TO 
go10 

B030 PRINT AT 4,0;3"TECLEA FUERZA 
(1-10): "3 

8040 GO SUB 9900: LET FORCE=val 

8045 IF TEMPPOS=0 AND F<>0 THEN 
PRINT Fi LET FORCE=F: GO TO 806 


o 

8050 IF FORCE<1 OR FORCE>10 THEN 
FOR I=1 TO LEN B$: PRINT CHR$ 

83CHR$ 32;3CHR$ 853: NEXT lz GO TO 
go40 

8060 PRINT AT 2,03" 


8080 RETURN 
9000 PAPER 6: 
Ls 

9010 PRINT AT 1,7;"FUEGO A DISCR 
ECION" 

9020 PRINT AT 1,73 OVER 153"_____ 
9040 PRINT AT 6,3;"UNO O DOS JUG 


ADORES (1/2)7";5 
9050 LET A$=INKEYS$: 


INK Oz BORDER 11 C 


IF A$="1" OR 


A$="2" THEN LET NUMP=CODE (As) 
-48: 
9060 
9070 
9080 


GO TO 9070 

GO TO 2050 

PRINT AT 6,295A$ 

PRINT AT 8,35 "NIVEL DE DIFI 


CULTAD (1-4)3 "3 

9090 FOR I=i TO 502 

9100 LET A$=INKEYS$: 
(A$)-48 

9110 IF DIF<i OR DIF>4 THEN GO 

TO 9100 

9120 PRINT AT 8,293A5$ 

9130 LET DIF=46-INT (DIF) 

9140 FOR I=1 TO 50: NEXT 1 

9150 RETURN 

9900 LET TEMPVAL=0: 

Oz LET B$="" 

9905 LET A$=INKEYS$: IF A$="," OR 
(A$>="0" AND A$<="9") THEN 60 

TO 9925 

9910>IF CODE A$=12THEN GO TO 995 

o 


NEXT 1 
LET DIF=CODE 


LET TEMPPOS= 


9915 IF CODE A$=13 THEN 60 TO 9 
980 

9920 GO TO 9905 

9925 LET TEMPPOS=TEMPPOS+1 

9930 LET B$=B$+A$ 

9935 PRINT A$; 

97940 IF INKEY$<>"" THEN GO TO 9 
940 

9945 GO TO 9905 

9950 IF TEMPPOS=0 THEN 60 TO 99 
05 

9955 LET TEMPPOS=TEMPPOS-1 

9960 PRINT CHR$ 83CHR$ 323CHR*$ 8 
, 

9963 LET B$=B$( TO TEMPPOS) 

9970 IF INKEY$<>"" THEN 60 TO 9 
3970 

9975 O TO 9905 

9980 LET val=0 

9985 IF LEN B$>0 THEN LET val=Y 
AL B$ 


9990 RETURN 
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APENDICES 


1. Utilidades 


y programas 
de demostración 


La pantalla en una cadena de caracteres 


Esta pequeña rutina, escrita por David Perry, va leyendo la pantalla en forma de baja 
resolución (32x22) por medio de la instrucción SCREENS y la transporta a la cadena AS. Se 
puede volver a ver la misma pantalla si se ejecuta un GO TO 45. 


1 REM ** LA PANTALLA EN +%* 30 LET A$(A,B)=A$ (A, B) +SCREENS 
2 REM **k UNA CADENA DE  *x* (A-1,B-1) 

3 REM ** CARACTERES 90 40 NEXT B: NEXT A 

5 FOR N=i TO 100: PRINT AT RN 50 FOR A=1 TO 22: FOR B=1 TO 3 


10 LET A$="": DIM A$ (22,32) 60 PRINT AT A-1,B-13A$(A,B) 
20 FOR A=1 TO 22: FOR B=1 TO 3 70 NEXT B: NEXT A 


2 
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I 
' 
| 
D*21,RND*255 "TEST"2* NEXT N 2 
7 
' 
I 
I 
' 
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Nautilus 


Este pequeño programa de Roy Easto produce un buen resultado. Lo puedes usar en tus 
programas como presentación. 
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1 
ad 1 REM x**x NAUTILUS *+* READ Ar READ B 
| 10 DATA 1,-4,-10,-4,9,8,-5,-2, 40 DRAW (A*COS T-B*SIN T)*M, (A 
O | -4,-6 *SIN T+B*COS T)*Mz NEXT Nz LETM!O 
“4 20 LET T=0: LET M=8 =Me.951 LET T=T+.21 RESTORE : GO 
Oi 30 PLOT 128,80: FOR N=1 TO 51 TO 30 


Morse instantáneo 


Seguro que el profesor Samuel Morse, supongo que sabrás que es el que inventó el 
código, se sentiría muy orgulloso de este programa que traduce instantáneamente cualquier 
texto escrito en español a uno escrito en MORSE, y a la vez al código MORSE, pero de 
audio. 


I í 
1 REM ** MORSE INSTANTANEO *x* 70 PRINT 2 LET As=":"+aser(r 10 
10 DIM A(39) 80 FOR A=1 TO LEN A$ 
20 FOR A=1 TO 39 90 IF A$(A)=" " THEN G0 TOD 19: O 
| 3O READ A(A) o 
40 NEXT A 100 LET C=CODE A$(A)-64-32:(4$( | ¿ 
| 50 INPUT "CUAL ES EL MENSAJE", | A)>""")+43*(A$(A)<"A") 
AS 110 IF A$(A)="." THEN LET C=38 
60 1F A$="" THEN STOP : LET A 120 LET C=A(C) o) 
a Ao 130 FOR B=1 TO 4 ¡ 


Hola 


140 
150 


160 
170 


180 
190 


IF C=1 THEN GO TO 190 
IF INT (C/2)*2=C THEN PRIN 


T "-"32 BEEP .3,0 


IF INT (C/2)*2<>C THEN PRI 


NT "."52 BEEP .1,0 


LET C=INT (C/2) 
NEXT B 
PRINT " "j2 FOR B=1 TO 502 


NEXT B 
200 NEXT A 
210 GO TO 50 ¡ 
220 DATA 5,30,26,14,3,27,12,31, 

7,17,10,29,4,6,8,25,20,13,15,2,1 

| 
1 
1 
(! 
I 


O 


1,23,9,22,18,28,32,33,35,39,47,6 
3,62,60,56, 48,42,85,53 


Este programa está diseñado para fabricar alfombras de bienvenida. 


oe» 


40 
50 
60 


e 
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REM %* HOLA e 

LET A$=" HI" 

GO SUB 1000 

LET I=1 

BORDER 4 

FOR A=0 TO 31 

PRINT PAPER 75 INK 15 BRIG 


HT 13AT 0,A5"qu" 


NEXT A 
FOR B=i1 TO 21 
PRINT PAPER 75 INK I; BRIG 


HT 13481 B,31;5"4p" 
70 NEXT B 
80 FOR C=30 TO O STEP -1 
90 PRINT PAPER 73 INK 13 BRIG 

HT 153AT 21,C5"aqp" 

100 NEXT C 

110 FOR D=21 TO O STEP -1 

120 PRINT PAPER 7; INK 15 BRIG 
HT 153AT D,03 "qu" 

130 NEXT D 

150 LET I=I+i2 IF 1=7 THEN LET 


I=1 
150 FOR E=28 TO 3 STEP -1 


HT 13AT N,5jA$5AT N,83A$; AT. N,11 
JASjAT N,1450$5AT N,175A$50T N,2 
23A$3AT N,25;A$ 

310 IF N=11 THEN PRINT  INK 13 

BRIGHT 13 FLASH 15AT N,73A$(1)5 
AT N,243A$(1) 

320 IF N=7 THEN PRINT BRIGHT 
13 INK 13 FLASH 15AT N,1355$(1)5 
AT N,243A$(1) 

330 IF N=15 THEN PRINT BRIGHT 

13 INK 13 FLASH 13AT N,133A$(1) 
¡AT N,195A$ 

340 NEXT N 

400 GO TO 20 
1000 FOR N=0 TO 72 READ B 
1010 POKE USR "A"+N,B 
1020 DATA £0,126,255, 255, 255, 255 
,126,60 


1030 NEXT N: RETURN 


170 PRINT PAPER 753 INK 153 FLAS 
H 13087 3,E3 "gg" 

180 NEXT E 

190 FOR F=4 TO 18 

200 PRINT PAPER 73 INK 13 FLAS 
H 1307 F,33 "qu" 

210 NEXT F 

220 FOR G=4 TO 28 

230 PRINT PAPER 73 INK 13 FLAS 
H 13AT 18,63"qu" 

240 NEXT G 

250 FOR H=18 TO 4 STEP -1 

260 PRINT PAPER 73 INK 13 FLAS 
H 1jAT H,2893 "qu" 

270 NEXT H 

290 FOR N=7 TO 15 

300 PRINT — INK 15 FLASH 15 BRIG 

Chequeo 


Introduce tu edad, pulso y número de respiraciones por minuto, y el ordenador te dará 


unas cifras interesantes. 
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1 REM x** CHEQUEO +, 
7 BORDER 12 PAPER 1: 
Ls 
10 PRINT "COGE UN RELOJ Y MIDE 
TU PULSO ENLATIDOS POR MINUTO... 
" 
40 INPUT FLASH 15 
CLEA TU PULSO "5P 
50 INPUT FLASH 1; 
EA TU PULSO "5E 
60 INPUT FLASH 15 


INK 71 C 


PAPER 3;"TE 
INK 23 "TECL 


INK 3;3"Y LO 


¡| S MESES "53M 


70 LET T=INT (365. 25% (E+M/12) + 
24xb60*P) 

73 CLS 

80 PRINT *”?”""TU CORAZON HA LA 
TIDO" 


90 PRINT ” "APROXIMADAMENTE "3T 
100 PRINT ”"VECES DESDE QUE NAC 
ISTE..." 

110 PAUSE 200 

120 CLS 

130 PRINT FLASH 15 
DORA TU RESPIRACION" 
140 INPUT FLASH 1; INVERSE 15 
INK 25 "CUANTAS VECES RESPIRAS PO 
R MI-"”"NUTO? "5B 

150 LET T=INT (365, 25x*(E+M/12)* 
24*60xB) 

150 CLS 

170 PRINT *****"HAS RESPIRADO A 
PROXIMADAMENTE "5T3" VECES DESDE 
QUE NACISTE..." 


PAPER 23"AH 
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Cinco dados 


Este programa, escrito por O. Davies, te muestra en la pantalla la tirada de CINCO 


DADOS DE YACHTZEE, es decir, la tirada de cinco dados. 
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1 REM x* CINCO DADOS *x%* 
5 GO SUB 600 


7 BORDER 3: PAPER 4: CLS 


10 LET as$=" HA 
20 LET b$=" pH + 8H + 0" 
30 LET có$=" 0 + MO 
32 LET DS$=" BA + 180" 
35 LET ES="B + MU 
40 PRINT AT 10,25a$3AT 14,2ja%$ 


¡AT 10,83a$50T 14,83a$3AT 10,145 
a$;AT 10,203a$;AT 10,263a$3AT 14 
,145a$30T- 14,203a$;5AT 14,263a$ 
42 FOR n=0 TO 8 
45 LET A=INT (RND*6)+1 
50 IF A=1 THEN PRINT AT 
AS5AT 12,230$5AT 13,256 
50 IF A=2 THEN PRINT AT 
D$3AT 13,2;E$;AT 12,25A$ 
70 IF A=3 THEN PRINT AT 
D$;AT 13,25E$50T 12,250$ 
80 IF A=6 THEN PRINT AT 
B$3AT 13,25B$5AT 12,23B$ 
90 IF A=4 THEN PRINT AT 
BS;AT 13,2;B$3AT 12,23A$ 
100 IF A=5 THEN PRINT AT 
BSjAT 13,2;B$3AT 12,250$ 
105 LET B=INT (RNDx*6)+1 
110 LET C=INT (RNDx*6)+1 
115 LET D=INT (RNDx*6)+1 
118 LET E=INT (RNDx*6)+1 


11,2; 
11,25 
11,2; 
11,2; 
11,2; 


11,25 


120 IF B=1 THEN 
A$;AT 12,830$5AT 
130 IF B=2 THEN 
D$;AT 13,8;ES5AT 
140 IF B=3 THEN 
D$;AT 13,83E$5AT 
150 IF B=6 THEN 
B$;AT 13,8;B$;AT 
160 IF B=4 THEN 
B$5AT 13,8;B$5AT 
170 IF B=5 THEN 
B$;AT 13,8;B$5AT 12,830$ , 

200 IF C=1 THEN PRINT AT 11,14 
JAS3AT 12,145C$5AT 13,145A$ 

210 IF C=2 THEN PRINT AT 11,14 
3D$5AT 13, 145E$5AT 12,143A$ 

220 IF C=3 THEN PRINT AT 11,14 
¿D$5AT 13,145E$3AT 12,1430% 

230 IF C=6 THEN PRINT AT 11,14 
¡B$5AT 13,143BS$5AT 12,145B$ 

240 IF C=4 THEN PRINT AT 11,14 
3B$3AT 13,145B$3AT 12,143A$ 

250 IF C=5 THEN PRINT AT 11,14 
¿B$5AT 13,145B$5AT 12,1450$ 

300 IF D=1 THEN PRINT AT 11,20 
5A$5AT 12,205C$5AT 13,20;A$ 

310 IF D=2 THEN PRINT AT 11,20 
¿D$3AT 13,205E$5AT 12,203A$ 

320 IF D=3 THEN PRINT AT 11,20 
¿D$5AT 13,205E$5AT 12,2050$ 


PRINT AT 
13,835 
PRINT AT 
12,85A% 
PRINT AT 
12,805 
PRINT AT 
12,8;B$ 
PRINT AT 
12,85A$ 
PRINT AT 


11,8; 
11,8; 
11,8; 
11,8; 
11,8; 


11,8; 
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330 IF D=6 THEN PRINT AT 11,20 
¿B$;AT 13,20;B$;AT 12,20;5BS$ 
340 IF D=4 THEN PRINT AT 11,20 
¿B$;AT 13,20;B$;AT 12,20;A$ 
350 IF D=5 THEN PRINT AT 11,20 
¿B$jAT 13,20;5B$;5AT 12,20;C4$ 
400 IF D=i THEN PRINT AT 11,26 
3ASGAT 12,265C$;50T 13,26;A$ 
410 IF D=2 THEN PRINT AT 11,26 
5D$;5AT 13,26;3E$5AT 12,263A$ 
420 IF D=3 THEN PRINT AT 11,26 
3D$;AT 13,263E$;AT 12,26;5C$ 
430 IF D=6 THEN PRINT AT 11,26 
3BS3AT 13,265B$53AT 12,26;B$ 


Cashflow 


Este programa, escrito por Keith Squires, sirve para calcular los CASHFLOW presentes 
y futuros, tanto negativos como positivos. 


440 IF D=4 THEN PRINT AT 11,24 
3B$5AT 13,265BS$53AT 12,266 
450 IF D=S THEN PRINT AT 11,26 
3BS$3AT 13,26;5B$3AT 12,26;C$ 


455 NEXT N 

460 IF INKEY$="" THEN G0 TO 46 
(o) 

470 IF INKEY$<>"" THEN GO TO 1 
o 

£00 FOR N=0 TO 7: READ B 

610 POKE USR "A"+N,B 

620 DATA 0,0,24,60,60,24,0,0 
630 NEXT N 

640 RETURN 


1 REM *x CASHFLOW +x* 
3 FOR N=0 TO 7: READ B: 
USR "N"+N,B:z NEXT N 
5 DATA BIN 00111100,BIN 01000 
O10,BIN O1100010,BIN 0O1010010,BI 
N O1001010,BIN 01000110,BIN 0100 
0010,0 
7 CLS 2: PRINT AT 0,65 "DESCUEN 
TO EN CASH FLOW" 
30 PRINT ”? "PORCENTAJE DE DESCU 
ENTO? "2: INPUT P 
70 PRINT ”* "CUANTOS ArFiDS? ": 1 
NPUT L 
100 DIM C(L)2 DIM V(L) 
140 PRINT ”?* "ENTRA EL CASHFLOW 
NETO CADA AFIOPRECEDIDO POR *”-* 
SI ES NEGATIVO" 
170 PRINT ”” "PULSA 
DO ESTES LISTO" 


POKE 


"ENTER* CUAN 


200 PRINT "AFIO CERO CASH"3:2 IN 
PUT Cz LET Z=C 

230 GO SUB 600 

240 PRINT C5" P.V. "3 

250 LET Z=C: GO SUB 400 

270 PRINT Ca LET T=C1* LET N=C 
300 FOR Y=1 TO L 

310 PRINT *"AFO "3Y5" CASH "5 
320 INPUT C(Y) 

330 LET Z=C(Y) 


340 GO SUB 400 
350 PRINT C(Y)3" P.V. 6"; 

360 LET V(Y)=INT (C(Y)/((1+(P/1 
00))7Y)) 

370 LET Z=V(Y) 

380 GO SUB 400 

390 PRINT V(Y): LET T=T+C(Y):1 L 
ET N=N+V (Y) 


420 NEXT Y 
440 PRINT *”" CASH NETO "532 LET 
=T 
460 GO SUB 400 » 
470 PRINT Tjz PRINT " NPY "js 
LET Z=N 
500 GO SUB 400 
510 PRINT N 
530 PRINT ""DUF TASA DE LA VUEL 
TA ENTRE O Y "5P5" ="; 


540 IF N>0 THEN LET R=P+((N/(T 
—N))xP) 

550 IF N<O THEN LET R=P-((N/(N 
=T))xP) 

560 PRINT (INT (R*100))/1005" P 
OR CIENTO." 


580 G0 TO 710 
590 STOP 

£00 IF Z>0 AND Z<100000 THEN P 
RINT " "5 

610 IF Z>0 AND Z<10000 THEN PR 
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INT " 


620 IF Z>0 AND Z<1000 THEN PRI 
NT » 1 3 
630 IF Z>0 AND Zx100 THEN PRIN 
T ” ” 5 
640 IF Z>0 AND Z<10 THEN PRINT 
0) 2”. 
3 

£50 IF Z<0 AND Z>-10000 THEN P 
R I NT ” » : 

660 IF Z<0 AND Z>-1000 THEN PR 
I NT » ” 5 

670 IF Z<0 AND Z>-100 THEN PRI 
NT 0 : 5 

680 IF Z<0 AND Z>-10 THEN PRIN 
T $” ”» 5 

690 IF Z=0 THEN PRINT " "3 
700 RETURN 

710 PRINT ,,” PULSA ”L” PARA U 
N LISTADO O PULSA *C” PARA 
CONTINUAR" 


720 IF INKEY$="L" OR INKEY$="1" 
THEN -CLS 2 GO TO 990 

723 1F INKEY$="c" OR INKEY$="C" 
THEN GD TO 730 

723 GO TO 720 

730 LET W=N3 LET X=P2 PRINT ”"C 
VAL ES LA DIFERENCIA EN LA TA-S 
A DE INTERES? ” 
740 INPUT Pz LET 
770 FOR Y=1 TO L 
780 LET V(Y)=INT (C(Y)/((1+(P/1 
00))7Y)) 


N=C 


790 LET N=N+V (Y) 

810 NEXT Y 

820 PRINT ”"NPYV AT "3P5" POR CI 
ENTO = "5N 

830 IF (W<N<0) OR (N<N<O) THEN 
LET R=ABS (P+ (Nx (P-X)) / (W-N) ) 
840 IF (W>N>0) DR (N>N>0) THEN 


LET R=ABS- (P+ (N* (X-P)) / (W-N) ) 
8£50 IF N<O AND W<O THEN LET R= 
ABS (P+(Nx*(P-X) )/ (N-W) ) 

860 IF N>0 AND W<O THEN LET R= 


ABS (P-(N*(P-X))/ (N—-W) ) 
880 PRINT ”"TASA DEL DCF DE RET 
URN CALCULADODE LAS TASAS "3X3" 
"3P,"= "¿C(INT (R*100))/1005" P 
OR CIENTO." 
900 GO TO 710 
990 PRINT ”? "CASH FLOW DESCONTAD 
o EN "pz" 7" 
1000 PRINT ”?" AFO CERO CASH "3: 
LET Z=C: GO SUB 400 
1010 PRINT Cj3" P.V. 
600: PRINT C 
1020 FOR Y=1 TO L 
1030 PRINT "ARO "53Y3" CASH "5 
1040 LET Z=C (Y) 
1050 GO SUB 400 
1060 PRINT C(Y)3” 
1070 LET Z=V (Y) 
1080 GO SUB 600 
1090 PRINT V(Y) 
1100 NEXT Y 
1110 PRINT *" CASH NETO "35 
1120 LET Z=T 
1130 GO SUB 400 
1140 PRINT T;3" 
1150 LET Z=N 
1140 GO SUB 400 
1170 PRINT N 
1200 PRINT ,," 
CABAR 
ONTINUAR" 

1205 IF INKEYS$="F" 
THEN GO TO 1220 
1210 IF INKEY$="C" 
THEN GO TO 730 

1215 GO TO 1205 
1220 PRINT ,,"QUIERES 
(S/N) 2" 

1230 IF INKEY$="S" OR 
THEN CLS 2: GO TO 30 
1235 IF INKEY$="N" OR 
THEN STOP 

1240 GO TO 1230 


"31 GO SUB 


P.V. 


NPV 


PULSA *F*” 


” >” 


PARA A 
PARA C 
OR INKEYS$="*" 


OR INKEY$="c" 


HACER OTRO 
INKEY$="s" 


INKEY$="n" 


O 0-0 000 060Oo 0 


O 


OO OOOO Oo 


e 


O 


Maestro 


Este programa, escrito por Roy Easto, toca una canción; a ver si puedes adivinar cuál es. 


| 
' 
1 
1 
1 
1 
! 


1 REM ** MAESTRO +%* 


10 LET SPEED=íi: LET PITCH=0 
20 READ Az FOR X=1 TO Az READ 


B,C 
30 BEEP SPEED*B,PITCH+C 
40 NEXT X: STOP 


1100 DATA 46,1,19,1,19,1,21,1.5, 
18,-5,19,1,21,1,23,1,23,1,24,1.5 
,23 


1120 DATA 1,23,1,24,1,24,1,24,1. 
' 
O | 1110 DATA .5,21,1,19,1,21,1,19,1 
I 
| 
ly 
| 
I 


5,24,.5,23,1,21,1,23,.5,24,.5,23 
1-5,21,.5,19,1.5,23,.5,24,1,26,. 
5,28,.25,26,.25,24,1,23,1,21,3,1 
9 


,18,1,19,.5,19,.5,21,.5,23,.5,24 
,1,26,1,26,1,26,1.5,26, .5,24 


Mezclador de cadenas 
Este es un programa que aleatoriamente mezcla las letras de una palabra. 
El programa pone las letras en posiciones aleatorias. El autor dice que es un buen 


ejercicio para programar, porque es necesario asegurarse que la posición seleccionada sea 
válida y que anteriormente no se haya seleccionado otra igual. 


po o A A A A [ APNX[É[ÓX[N XXX $ [XA e o 


ld e MN 
MSMHILIPETT: 
ELITES 
ELUTCOCE=S 
JA PART ME 
MMS RETO 
AMETICEE: 
F1REPETLE 


REM xx MEZCLADOR ex 100 PRINT AT A,LEN B$-13B$(LEN 

REM x* DE CADENAS sexe B+) 

PRINT "INTRODUCE LAS LETRAS | 110 IF LEN A$=1 THEN GO TO 160 
120 IF B=1 AND LEN A$>1 THEN L 

INPUT C$ ET AS=A$(2 TO ) 

CLs 130 IF B=LEN As AND LEN A$>1 TH 


LET A$=C$ 140 IF B<>1 AND B<>LEN A$ THEN 
RANDOMI ZE LET A$=A$( TO B-1)+A$(B+1 TO ) 
LET Bs="" 150 GO TO 80 

LET B=INT (RND*LEN A$)+1 160 NEXT A 

LET B$=B$+A$ (B) 


I 
1 
| 
FOR A=0 TO 9 EN LET A$=A$( TO B-1) 
! 
' 
' 
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Generador de caracteres 


Estos programas te ayudan a crear gráficos definidos, y ocupan muy poca memoria. 
Puedes mover el cursor e ir dibujando tu carácter a la vez. 


LE LOLA qa A RS ES 
MM e Mea ca ca Y ro rs a] e IO MA MM ec e "A 
LIS IS Me e Ms a Ml e Ne da] Ea 
e NN Ns] 0 A MN E sl 
a a o AA 
MM a JA MO e Bl IA Mr DA A MO A E Nr 
BUM a a e Bl MA BAM Me MA 
el a a A A a LL ELL 

LLE LL Ll) 


go 


Para mover el cursor, usa las flechas. 
El cero da color al cuadrado en el que esté el cursor. 


1 REM x** GENERADOR .e 125 IF INKEY$="B" THEN PRINT A 
2 REM ** DE CARACTERES *+* T A,B3"0"3AT A,B+VAL "11"3"m"5A 
10 PRINT "012345678 012345678 T 1,B+VAL "223" " 
012345679" 130 FOR O=PI-PI TO VAL "5" 
20 FOR n=VAL "1” TO VAL "8" 135 NEXT O 
30 PRINT INK 73 PAPER O5N3 PA 140 LET A=A+(INKEYS$="6")-(INKEY 
PER 73 INK 035"00000000 — "5¿N3 "HI ="7") 
"5N 150 IF INKEYS$="C" THEN COPY 


60 INPUT A AL "210" 


70 INPUT B 
100 LET A$="x" 

120 PRINT AT A,B3A$sAT A,B+VAL 
"11"54$5AT A,B+VAL "22"3A$ 

122 PRINT AT A,B3"1"3AT A,B+VAL 
n1103 “5AT A,B+VAL "22"3 "mg" 


160 LET B=B+(INKEY$="8")-(INKEY 
="5") 

200 GO TO VAL "120" 

210 CLS 

220 RUN 


1 
i 
: 
1 
1 
I 
1 
| 
I 
40 NEXT N 155 IF INKEY$="R" THEN GO TO Y ; 
I 
1 
t 
1 
1 
t 
l 
' 
É 
! 
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Hay otro listado de un programa generador de caracteres. 


1 REM +x* GENERADOR 
2 REM *% DE CARACTERES II xx 
S DIM A$(8, 8) 
10 FOR F=1 TO 8 
20 LET A$(F)="00000000" 
25 PRINT A$(F) 
30 NEXT F 
40 LET X=0: LET Y=0 
70 LET B$=INKEYS$ 
80 IF CODE B$<CODE "0" OR CODE 
B$>CODE "9" THEN GD TO 45 
90 IF VAL B$>=5 AND VAL B$<=8 
THEN — PRINT OVER 13AT Y,X3" "a 
LET X=X+(B$="8" AND X<7)-(B$="5" 
AND X>0): LET Y=Y+(B$="6" AND Y 
<7)-(B$="7" AND Y>0): PRINT FLA 
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Orbitas 


q SH 13 OVER 15AT Y,X3" "s 


E] 
100 IF B$="1" OR B$="0" THEN 6 
OD SUB 1000 
110 IF B$="2" THEN CLS : FOR F 
=1 TO 8: PRINT AT F,15A$(F)5 INV 
ERSE 13AT F,165A$(F): NEXT F: GO 
TO 1100 
120 60 TO 70 
1000 PRINT AT Y,X3B$ 
1010 LET A$(Y+1,X+1)=B+$ 
1020 RETURN 
1100 PRINT +$1;"A QUE LETRA LO QU 
IERES ASIGNAR?": PAUSE O 
1200 LET B$=INKEYS$ 


Este programa sirve para calcular las órbitas de 20 satélites a su paso por el ecuador. 
Los resultados pueden ser usados por los radioaficionados; el UOSAT “downlink” de estos 


satélites está en 145,825 MHz. 


Los datos primarios para cada día pueden ser obtenidos del contestador automático del 
centro de control de UOSAT, en el Reino Unido (0483 61202). 


10 REM ** ORBITAS *x* 

20 INPUT A 

30 LET H=INT (A) 

40 LET M=(A-H)+*100 

60 PRINT "ECUADOR CRUCE DEG W" 
70 INPUT Q 

go CLSs 

90 LET A=23.87 

100 LET H=(H*40)+M 

110 LET B=95.358 

120 PRINT TAB (3)5"TIEMPO"5TAB 
(16)3"DEG W">* 


125 FOR I=1 TO 20 
130 LET H=H+B 
140 IF H>1440 THEN LET H=H-144 


o. oO 


150 LET Z=H/60 
160 LET X=INT Z | 
170 LET C=INT ((Z-X)x60) | 
.! 
3 
' 
' 
J 


O 


190 LET Q=0+A 
190 IF Q>360 THEN LET Q=0-360 
200 LET Q=(INT (100*0Q)/100) 

210 PRINT " 
220 NEXT 1 


"5X3"2"3C,0 


Generador de ruidos 


La instrucción BEEP puede hacer más que un mero beep, como de forma convincente 


demuestra esta rutina hecha por Roy Easto. 
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1 REM sx GENERADOR ++% XT ON 
| 5 REM sx DE RUIDOS *x 100 DATA 58,72,92,203,63,203, 63 
| 10 FOR N=32400 TO 32638: READ ,203,63,230,7,14,0,87,33,0,0,70, 
1 
1 
1 
1 
I 
1 
I 


Xz POKE N,Xsz NEXT N 35, 16,254,62,232,130,211,254,70, 
20 POKE 32612,20: FOR N=0 TO 2 35, 16,254,62,248,130,211,254,13, 
55: LET L=USR 32400: PAUSE 4: NE 32,235,201 


Sarampión 


Este programa, escrito por David Perry, no sirve para nada; pero si lo usas muy a 
menudo te puede volver loco. 
Lo único que hace es dibujar cuadrados parpadeantes en la pantalla. 


1 REM %%*e SARAMPION ex 40 NEXT N 
5 BORDER 1: PAPER Oz INK 712 C 50 POKE INT (RND*734)+22528, IN 


Ls T (RND*255) 
10 FOR N=22528 TO 23262 60 GO TO 50 
30 POKE N, INT (RND+*255) 
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2. Cómo hacer juegos 


Puedes estar de acuerdo conmigo en que es relativamente fácil hacer un programa de 
juegos una vez que tienes una idea: pero lo que es realmente difícil es tener la idea para 
poder realizarlo. 

En esta parte del libro te voy a dar algunas ideas para que escribas buenos juegos. O, 
por lo menos, eso es lo que voy a intentar. 

Muchas veces, cuando intentaba traducir un juego “tradicional” (que no es de ordenado- 
res) al ordenador, me he dado cuenta de que el programa que escribí al final tenía muy poco que 
ver con el del principio; pero creo que esto no es malo, ya que en otra ocasión podré 
traducirlo y así tener dos juegos por uno. Pienso que, mientras que el juego conseguido sea 
divertido, da igual el camino seguido para llegar hasta él. 

Encontrarás que al leer muchos de los juegos que te presente aquí te darán ideas para 
otros programas que no tengan nada que ver con ésos. Esta sección la debes entender como 
una de “ideas generadoras”. Deberás decidir si sigues todos los consejos o solamente en 
aquellas partes que te interesen. 


Derivados de las damas 


Seguro que habrás visto juegos que se pueden considerar como “derivados de las 
DAMAS”. Esto significa que hay juegos basados en las DAMAS, pero que al menos difieren 
en un aspecto importante. No cuesta mucho trabajo darse cuenta de que un tablero de ocho por 
ocho, las fichas de las DAMAS y su peculiar forma de moverse pueden ser la base de infinidad de 
juegos inteligentes. 

Todo lo que tienes que hacer es preguntarte “qué pasaría si”, y a partir de ese momento 
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escribir el juego. Aquí hay un montón de ejemplos que espero te sirvan para explicarte la 
idea de “qué pasaría si”. Estoy seguro de que eres capaz de pensar otros, ¿por qué no los llevas 
ala práctica? 


— Usar un tablero de nueve por nueve, o siete por siete, con el cambio correspon- 
diente de fichas. 

— Quitar las comidas múltiples. 

— Permitir que el movimiento sea en todas las direcciones como si fueran reyes 
de AJEDREZ. 

— Cambiar la forma del tablero: que sea hexagonal, rectangular o pentagonal. 

— Añadir una o dos fichas especiales como, por ejemplo, una que pueda mover 
como la reina en AJEDREZ. 

— Usar un nuevo método de captura como, por ejemplo, el usado en el OTHE- 
LLO; se captura una ficha contraria cuando esté entre dos de las tuyas. 
— Cambiar el objetivo del juego como, por ejemplo, gana el que primero consiga 

llevar tres de sus fichas a la otra parte del tablero. 
— Hacer que el juego sea de tres jugadores, y permitir que el ordenador ¡leve dos 
de ellos, y el tercero que sea el humano. 


Ahora te toca a ti; seguro que eres capaz de pensar juegos que se puedan poner como 
derivados de las DAMAS. 


Mancala 


Uno de los juegos más antiguos que se conocen es el KALAH, o MANCALA, o 
AWARI..., tiene infinidad de nombres. El tablero de MANCALA ha sido descubierto en los 
templos egipcios de hace 3000 años. 

Este juego todavía se practica en ciertos lugares de Africa y Asia. A veces, bajo reglas 
diferentes. 

La base del juego es que cada uno de los dos oponentes tiene una fila formada por 
depresiones en el suelo, que está enfrente de ellos. 

Al final de cada una de las filas de depresiones hay un agujero más grande, que se llama 
“CASA”. El campo de juego es así: 


LADO DEL ORDENADOR 
00000000000 
CASA DEL HUMANO  H H CASA DEL ORDENADOR 
00000000000 
LADO DEL HUMANO 


Al empezar el juego cada depresión tiene varias semillas, generalmente cuatro o seis, y la 
casa está vacía. Se cogen todas las semillas de una depresión y el jugador mueve en sentido 
antihorario (si quieres, horario), dejando caer una en cada agujero por el que pases, excepto 
la CASA. 
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Si la última semilla cae en un agujero vacío del lado humano, entonces, todas las fichas 
que están enfrente, en los agujeros del contrario, se llevan a la CASA del que ha movido. El 
juego continúa hasta que uno de los jugadores no pueda mover; esto ocurrirá cuando no 
queden semillas en su lado. El ganador es el que tenga más semillas en su CASA al acabar el 
juego. 

Una de las variaciones permite que al mover se pueda dejar caer una semilla en la 
propia CASA, pero no en la del contrario. Si la última semilla cae en la CASA del jugador, 
entonces éste tiene un segundo turno. 

Este es un juego bastante simple, y además es fácil de programar. En un artículo que 
habla del juego en Creative Computing (pp. 166-171, mayo de 1980), David Levy dice que “el 
juego es un ejercicio de programación ideal porque las reglas son simples..., y es relativamen- 
te fácil encontrar una función de evaluación para él”. 

Á pesar de la sencillez del juego, Sid Sackson dice en su libro A Gamut of Games 
(Pantheon Books, New York, 1982), que aunque el juego es “al principio francamente 
simple... cuando se va jugando más, empiezan a aparecer muchas de las dificultades de la 
estrategia”. L. D. y P. H. Stander, en un artículo en Microcomputing (pp. 118-120, noviembre 
de 1970), añaden que “un buen juego de MANCALA es tan difícil como uno de AJEDREZ”. 


Juegos de cartas 


Ni siquiera voy a intentar dar una lista de juegos de cartas en esta sección, porque 
seguro que tú conoces tantos como yo, y puedes encontrar con gran facilidad libros de juegos 
de cartas. 

La mayor parte de los juegos de este estilo se pasan al ordenador siguiendo estas tres 
directrices: 


a) Simplificando las reglas. 
b) Reduciendo el número de cartas. 
c) Cambiando las cartas por dados. 


El POKER puede ser la base para muchos juegos en los que una combinación particu- 
lar de cartas (o números si usas dados) tienen mayor valor que otras. Las reglas para el 
descarte, o para cambiar los números que no quieras, pueden ser determinadas según la 
naturaleza del juego. Si no hay descarte, entonces tendrás sólo un juego de azar. Con un 
número limitado de descartes, aunque todavía es un juego de azar, se necesitará un poco de 
pericia para saber qué cartas cambiar. Descartes ilimitados proporcionarán una mayor 
importancia a la pericia, y el factor azar pierde importancia. 


En el exterior 


Quizá quieras escribir un juego que simule un deporte al aire libre, como el fútbol, tenis 
o baloncesto. 

Las simulaciones pueden basarse en juegos similares a los jugados con cartas, o 
pueden seguir rutinas diferentes y usar la capacidad de crear gráficos que tenga tu ordenador, 
y de este modo hacer juegos en tiempo real. : 
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Juegos de tablero 


Aunque no puedes hacer programas iguales a los que se comercializan (puedes infringir 
los derechos de copyright de la versión original), estos juegos te pueden dar gran cantidad de 
ideas. Ñ 

Puedes fijarte en el MONOPOLY, CLUEDO, DIPLOMACIA, e infinidad de ellos más. 

Si quieres ver juegos que te den ideas, te aconsejo que vayas a alguna de las muchas 
tiendas que hay dedicadas sólo a ese tipo de juegos y leas las instrucciones de varios. 


Juegos de dados 


De este estilo de juegos hay gran cantidad de libros; por eso, si te interesan en gran 
medida los juegos de este tipo, lo que puedes hacer es leer algún libro que trate de ellos. Pero 
aquí mencionaré los más conocidos, ya que te pueden interesar como principio. 


CRAPS (SIETE/ONCE).—Se usan dos dados. Si la suma de los dos es siete u once, el 
jugador que acaba de tirar gana inmediatamente. Si el total es dos, tres o doce (craps), el 
jugador pierde y se dan los dados al contrario. Cualquier otro valor conseguido se llama 
“PUNTO”. El jugador intentará sacar de nuevo ese mismo punto antes de que salga siete. Si 
saliera siete, el jugador perdería. 


VEINTIUNA.—Como el juego de las cartas, sólo que con dos dados. 


PIG (CERDO).—Se usa sólo un dado. Se intentará sacar un total de 100 puntos. El 
jugador acabará su turno cuando quiera, y dará el dado al contrario. La puntuación TOTAL 
se volverá a cero si sale un uno. 


CHUCK A LUCK.—Aquí se usan tres dados. Este es un juego basado en CROWN 
AND ANCHOR, en el que el (o los) jugador(es) eligen un número entre el uno y el seis, y 
hace(n) su apuesta en ese número. Se tiran los tres dados; por cada uno que salga con el 
número apostado por el jugador, se le dará el valor de la apuesta. 


Juegos de fantasía 


Si te gustan los juegos del estiló de DUNGEONS AND DRAGONS (MAZMORRAS Y 
DRAGONES, un juego que goza de gran popularidad en Estados Unidos e Inglaterra, 
donde incluso hay castillos en los que se juega de forma real, con escudos, espadas, etc.), 
entonces, seguro que te atraerán aquellos programas que exploren los mismos mundos de 
fantasía. Si lees cómo se desarrollan estos juegos (están basados en unos cuadernillos en los 
que se explica la aventura que vas a realizar), seguro que al final encontrarás ideas para crear 
tu propio mundo de fantasía, que puedes ir aumentando cada vez que leas nuevos juegos. 
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Otras fuentes de información 


EL LIBRO GIGANTE DE LOS JUEGOS PARA ORDENADOR, Tim Hartnell, Anaya 
Multimedia, Madrid, 1984. 

JUEGOS GRAFICOS DE AVENTURA PARA ZX SPECTRUM, Richard G. Hurley, 
Anaya Multimedia, Madrid, 1985. 

THE COMPLETE BOOK OF INDOOR GAMES, editado por Peter Arnold, Rigby Pub- 
lishers Ltd., 1982. 

A PLAYER'S GUIDE TO TABLE GAMES, John Jackson, Stackpole Books, 1975. 

A GAMUT OF GAMES, Sid Sackson, Pantheon Books, 1982. 

GAMES FOR TWO, John Wasley, Proteus Publishing Co., Inc., 1981. 

DICE GAMES NEW AND OLD, William E. Tredd, The Oleander Press, 1981. 

DISCOVERING OLD BOARD GAMES, R. C. Bell, Shire Publications Ltd., 1980. 

DISCOVERING DICE AND DOMINOES, R. C. Bell, Shire Publications Ltd., 1980. 

DICING WITH DRAGONS, AN INTRODUCTION TO ROLEPLAYING GAMES, lan 
Livingstone, Routledge € Kegan Paul, 1982. 

EVERYMAN'S INDOOR GAMES, Gyles Brandreth, J. M. Dent % Sons, Ltd., 1982. 


264 


3. Búsqueda de errores 


Cuando termines un programa deberás hacerlo robusto. Esto quiere decir que el progra- 
ma admita cualquier clase de datos sin que se produzca un “CRASH”. Para conseguir esto 
debes probar muchas veces tus programas, e introducir datos erróneos, por ejemplo, donde 
pida un número meter una letra. Después tendrás que añadir líneas que cacen esos datos e 
impidan que el programa se vaya al garete. 

Un programa que se deja ejecutándose en un ordenador, debe ser “robusto”. Si en un 
momento, donde pide un dato numérico, se da un dato alfanumérico, el ordenador debe 
poder responder y con el programa funcionando. O puede ignorar el dato metido y pedir 
otro, o puede dar una señal de aviso, y dar la oportunidad al operador para introducir el 
dato correcto. Lo que no debe pasar nunca es un “CRASH”, 

El siguiente programa —escrito para que veas cómo se debe realizar un programa 
robusto— genera simples problemas matemáticos. El programa es adecuado para niños de 
seis a nueve años, aunque se puede variar para otros grupos. 


PROGRAMA 
Veamos el programa línea por línea: 


25—Pide un dato alfanumérico. 

30—Ve si algo se ha introducido. 

35—En esta línea revisa la longitud del dato introducido. Esto puede ser importante si el 
dato tiene que visualizarse en la pantalla. Si es muy largo, puede ser que se represente 
de una forma muy fea, con palabras rotas. Si la longitud es demasiada, lo que se puede 
hacer es cortar el dato introducido por donde queramos. 
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40—Chequea la variable para ver si es correcta. Sólo permite letras de la “a” a la “z” y de 
la “A” a la “Z”. Lo que se usa para esta revisión son los códigos de las letras. 

65—Genera dos números aleatorios, entre uno y diez. 

70—Comprueba que el segundo número sea menor que el primero. De esta forma se evitan 
respuestas negativas para las sustracciones. 

90—Agquí sólo se permiten estos tres números: 1, 2, 3. Se introducen como cadena más que 
como números, ya que es más fácil revisar cadenas que números. Después estas 
cadenas se transforman en números por medio de la sentencia VAL. Aquí lo que se 
usan son los códigos, como en la línea 40. 

110, 115, 120—Se ve qué operación se va a realizar. 

140—Aquí se pide la respuesta. Otra vez como cadena. 

145—Se evita la cadena vacía (ésta se consigue con sólo apretar ENTER). 

155—Revisa cada carácter para que sólo sean numeros los que forman la cadena. Cualquier 
otro carácter daría un error NONSENSE IN BASIC cuando se ejecutara la operación. 


Fíjate que no es posible evitar el BREAK en BASIC. Para realizar esto es necesario un 
programa en código máquina, y esto ya es harina de otro costal. Si quieres parar el 
programa, espera hasta que se te pida un dato; entonces, simplemente borras las comillas 
izquierdas, y pones STOP. 

En vez de usar INPUT podíamos haber usado INKEY$. Si decides usar ésta debes 
analizar los datos introducidos de la forma que aquí hemos hecho, como cadenas. Si quieres 
asignar los datos a una cadena puedes usar estas líneas: 


90 IF INKEY$=““THEN GO TO 90 
100 LET X$ =INKEYS 


La línea 90 obliga al ordenador a esperar hasta que se pulse una tecla. Como sabrás, 
cuando se usa INKEYS$ no es necesario usar ENTER. 
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4. Glosario 


ACUMULADOR: Registro en la unidad lógica del ordenador que almacena los resultados 
intermedios de las operaciones. 

ALGEBRA BOOLEANA: Es el álgebra de la toma de decisiones y de la lógica. Fue 
desarrollada por George Boole, y en ella está basada la capacidad que tiene tu 
ordenador para tomar decisiones. 

ALGORITMO: Secuencia de pasos que se realizan para resolver un problema. 

APL: Acrónimo de las palabras inglesas Automatic Programming Language, un lenguaje 
desarrollado por Iverson a principios de los sesenta. Este lenguaje maneja gran canti- 
dad de operadores y estructuras de datos. Usa unos caracteres no estándar, 

ASCII: Siglas de American Standard Code, usado para la transmisión de información. Este es, 
casi, el código universal para letras, números y símbolos; a cada uno de ellos le 
corresponde un número entre O y 255, por ejemplo, la letra “A” tiene el número 65. 


BANDERA (flag): Este es un indicador que en un programa da información acerca de una 
condición particular, por ejemplo, si el resultado de la última operación ha sido negativo. 

BASE DE DATOS: Grupo de datos, organizados para permitir al ordenador un acceso muy 
rápido. 

BASIC: Siglas del inglés que vienen de Beginner's All-purpose Simbolic Instruction Code; es el 
lenguaje de programación más usado en los ordenadores personales. Es fácil de 
aprender y muchas de sus sentencias son parecidas al inglés. 

BATCH: Se refiere a un grupo de datos o instrucciones que tiene que procesar el ordenador 
de una sola vez, sin que sea posible.la interrupción del operador. 

BAUDIO: Unidad de medida que sirve para indicar la velocidad de transmisión de datos. 
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Generalmente, número de BITS (unidad mínima de transmisión de información) por 
segundo. 

BENCHMARK: Test que se usa para medir, en ciertos aspectos, las cualidades de un 
ordenador. Por medio de los resultados de estas pruebas se pueden comparar unos 
ordenadores con otros. 

BINARIO: Sistema de numeración en el que sólo hay dos cifras, O y 1 (el sistema ordinario 
es el decimal; en éste hay diez cifras, 0, 1, 2, 3, 4, 5, 6, 7, 8 y 9). Debes imaginar que tu 
“ordenador piensa” en binario. 

BOOTSTRAP: Es un programa que se ejecuta al encenderse el ordenador. Este programa 
prepara al ordenador para entender otros programas. 

BUFFER: Es un mecanismo de almacenamiento que guarda los datos introducidos desde un 
aparato, tal como el teclado, tanto tiempo como diga el ordenador. 

BUG: Error en un programa. 

BUS: Conjunto de uniones eléctricas usadas para transmitir información entre diferentes 
partes del sistema operativo. 

BYTE: Octeto. Es el menor grupo de bits que forman una palabra de ordenador. General- 
mente, se describe a un ordenador como de “ocho bits” o de “dieciséis bits”, dependien- 
do de la longitud de las palabras con que trabaja el microprocesador. 


CAMPO: Colección de caracteres que forman un grupo distinto, como, por ejemplo, un 
código de identificación, un nombre, o una fecha. Un campo, normalmente, es parte de 
un fichero. 


COBOL: Siglas para Common Business Orientated Language; es un lenguaje de programación 
de alto nivel, muy cercano al inglés que se usa principalmente para los negocios. 

CODIGO DE CARACTER: El número en ASCII (véase ASCII) que se refiere a un símbolo 
particular. Por ejemplo, 32 a un espacio y 65 para la letra “A”. 

COMPILADOR: Un programa que traduce otro escrito en un lenguaje de alto nivel a otro 
escrito en lenguaje máquina, al que la máquina entiende directamente. La traducción se 
hace de todo el programa a la vez. 

CONCATENAR: Añadir (la suma de dos cadenas de caracteres es conocida como concate- 
nación). 

CP/M: Son las iniciales de Control Program/Microcomputer; es casi el sistema operativo 
universal para el manejo de discos en ordenadores de ocho bits. Fue desarrollado por 
Digital Research. 


DATO: Término general para la información procesada por el ordenador. 

DEBUG: Acción de revisar y corregir los errores de un programa. 

DIAGRAMA DE FLUJO: Es un dibujo que indica los pasos que ha de seguir el programa 
para solucionar el problema. Se debe hacer antes de escribir un programa. Para estos 
dibujos se usan unas figuras estándar; por ejemplo, un rombo se utiliza cuando el 
ordenador tiene que realizar una operación; en cambio, se pondrá un rectángulo 
cuando el ordenador tenga que realizar una acción. 

DIRECCION: Un número que se refiere a una posición, generalmente dentro de la memoria 
del ordenador. Lugar donde se almacena la información. 

DISCO: Unidad de memoria externa, de tipo magnético (hay diferentes clases: disco duro y. 
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floppy (disco flexible). Se usa para almacenar los datos y programas del ordenador. 
Están formados por una placa circular de plástico o de aluminio, recubierta de un 
material magnético. Los discos pueden ser fijos o intercambiables. 

DOBLE DENSIDAD: Nombre con el que se designa a un tipo de disco que se ha grabado 
usando un sistema especial que permite, como el nombre señala, doblar la capacidad 
de almacenamiento que tiene dicho disco. 

DOCUMENTACION: Las instrucciones y explicaciones que se escriben para acompañar a 
un programa. 

DOS: Siglas de Disk Operating System; es un programa muy versátil que permite al ordena- 
dor manejar las unidades de discos. 


ENSAMBLADOR: Este es un programa que convierte directamente otro programa escrito 
en lenguaje ASSEMBLY (este es un lenguaje de bajo nivel, en el que una instruc- 
ción del programa equivale a una de las que realiza el ordenador) en el lenguaje que uti- 
liza el ordenador. 

EPROM: Siglas para Erasable Programmable Read Only Memory; es un tipo de memoria 
que contiene la información de una forma semipermanente. Si se ve expuesta a los 
rayos ultravioletas, perderá su información. 


FICHERO: Un grupo de registros relacionados que son procesados juntos, como, por 
ejemplo, el fichero de un inventario, o un fichero de estudiantes. 

FIRMWARE: Los componentes sólidos de un ordenador se llaman hardware; los programas 
externos al ordenador, por ejemplo, de discos o cassettes, son llamados software, y los 
programas que están fijos en los circuitos se llaman firmware. El firmware puede ser 
variado, hasta cierto punto, por medio del software, según las circunstancias. 

FLOPPY DISK: Véase disco. 

FORTRAN: Es un lenguaje de alto nivel usado generalmente para trabajos científicos (su 
nombre viene de FORmula TRANslation). 


GIGO: Acrónimo de Garbage In Garbage Out (entra basura y sale basura). Esto quiere decir 
que si damos a un ordenador datos malos, los resultados, después de ejecutar el 
programa, también serán malos. 

GRAFICOS: término que describe la visualización de los datos bajo forma de dibujo. Los 
dibujos se. visualizan en la pantalla y en la impresora por medio de puntos. 


HARD COPY: Información sacada por impresora. 

HARDWARE (cacharrería): La parte material del ordenador. Véase software y firmware. 

HEXADECIMAL : Sistema de numeración usado por los programadores en código máquina, 
porque es muy cercano a la forma que tiene el ordenador de almacenar los datos en la 
memoria. Este sistema, en vez de tener diez cifras, como el que usamos habitualmente, 
tiene dieciséis. 

HEX PAD: Es como un teclado que permite al usuario meter directamente en el ordenador 
números hexadecimales. 
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IMPRESORA DE LINEA: Es una impresora que en vez de imprimir carácter a carácter, lo 
hace línea a línea. 

IMPRESORA DE MATRIZ: Es un tipo de impresoras que forman las letras y simbolos por 
medio de unas matrices de puntos; estas matrices suelen ser de ocho por ocho, o de 
siete por siete puntos. 

IMPRESORA TERMICA: Impresora que en vez de usar tinta usa un papel químico, que 
tiene la particularidad de cambiar de color con el calor. 

INPUT (entrada): Cualquier información que se da al ordenador durante la ejecución de un 
programa. 

INSTRUCCION: Un elemento de código de programación que indica al ordenador la 
operación a realizar. Una instrucción en ensamblador es, por ejemplo, ADD (sumar, en 
inglés); ésta indica al microprocesador que sume dos valores. 

INTERPRETE: Convierte un programa escrito en un lenguaje de alto nivel en otro que el 
ordenador puede entender. 

I/O: Siglas para unidad de Input/Output (entrada/salida). 


JOYSTICK (mando de juegos): Un aparato analógico que transmite al ordenador qué 
posición relativa está ocupando en ese momento; se usa generalmente en los juegos. 


KILOBYTE: Unidad de medida que sirve para indicar la cantidad de memoria. Un kilobite 
(abreviado en 1K) es igual a 1.024 bits (véase bit). 

LENGUAJE DE BAJO NIVEL: Lenguaje de programación más cercano al que usa el 
ordenador que al que usan los humanos (véase lenguaje de alto nivel). 

LENGUAJE MAQUINA: Es un escalón inferior al lenguaje de bajo nivel; es el lenguaje que 
entiende el ordenador directamente. 

LENGUAJES DE ALTO NIVEL: Son lenguajes de programación parecidos al inglés. Los 
lenguajes de bajo nivel son más cercanos a aquellos que entiende el ordenador. Los 
programas escritos en estos lenguajes van más lentos que los escritos en un lenguaje de 
bajo nivel, ya que éstos se tienen que traducir para que el ordenador los entienda. 


MEMORIA: Es el dispositivo, o dispositivos, que usa el ordenador para almacenar los datos 
y programas que está procesando; también almacenará el conjunto de instrucciones 
que indique al ordenador cómo llevar a cabo las cosas que le pida el programa (véase 
ROM y RAM). 

MEMORIA DINAMICA: Tipo de memoria usada por los ordenadores, que necesita ser 
recargada constantemente para no perder su contenido. 

MEMORIA VOLATIE: Un sistema de memoria que pierde su contenido cuando se le quita 
la alimentación. 

MENSAJES DE ERROR: Información que da el ordenador al usuario, indicándole que en 
el programa que está ejecutando hay un error que obliga al ordenador a parar el 

roceso. 

MICROPROCESADOR: Esta es la parte del ordenador más importante; en él está el 
corazón de todo el aparato. El microprocesador es el que “piensa” dentro del orde- 
nador. 

MODEM: Siglas de MOdulador|DEModulador; su función es la de permitir que un ordena- 
dor se transmita con otro por medio de la vía telefónica. : 
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MONITOR DE VIDEO: Pantalla utilizada para la representación visual de los datos 
recibidos por un ordenador, o de los datos transmitidos a un ordenador. Un monitor 
de video no está equipado para recibir señales difundidas. 

MOTHERBOARD: Una unidad, generalmente externa, que tiene unos slots que permiten 
añadirle al ordenador nuevos circuitos, que le permitan realizar más cosas, como 
gráficos de alta resolución, controlar un robot, de las que no está provisto el ordenador 
estándar. 


NETWORK: Un grupo de ordenadores que trabajan conectados entre sí. 


OCTAL: Sistema de numeración en base ocho. Usa ocho cifras: 1, 2, 3, 4, 5, 6, 7 y O. 

ON LINE: Se dice de un aparato que está controlado directamente por el ordenador. 

OUTPUT: Cualquier dato producido por el ordenador mientras que ejecuta el programa, con 
tal de que esté mostrado de alguna forma, ya sea la pantalla, el plotter, etc. 


PASCAL: Un lenguaje de alto nivel, desarrollado a finales de los años sesenta por Niklaus 
Wirth. Este lenguaje enseña buenas técnicas de programación, da disciplina al progra- 
mar y permite la programación estructurada. 

PILOT: Lenguaje de alto nivel generalmente usado para el desarrollo de programas educa- 
tivos. 

PORT: Cualquier punto por el que puede salir y entrar información hacia y desde el 
ordenador. 

PROGRAMA: Un conjunto de instrucciones ordenadas de una determinada manera, para 
que lleven a cabo una tarea determinada. 

PUERTA LOGICA: Son unos componentes del ordenador que toman las decisiones permi- 
tiendo que la corriente vaya por un camino o por otro, dependiendo de qué condicio- 
nes se han satisfecho. 


RAM: Siglas de Random Access Memory (memoria de acceso aleatorio); ésta es la memoria 
del ordenador que guarda el programa que se está ejecutando en ese momento. El 
contenido de la RAM se puede variar, pero al variarlo lo perdemos, no como ocurre 
con la ROM, ya que el contenido suyo no se puede variar, por software. 

RATON: Es una unidad que sirve para controlar al ordenador. Sus dimensiones son un 
poco menores que las de un paquete de cigarrillos, y el usuario lo desliza sobre la mesa 
de trabajo, y al hacerlo, se mueve un cursor en la pantalla que indica la decisión que 
ha elegido. 

REGISTRO: Parte de la memoria de un ordenador que guarda datos. 

RESET: Es una señal que hace que el ordenador vuelva a la misma posición de memoria 
que cuando se enciende. 

ROM: Read Only Memory. Esta es la memoria de sólo lectura; tú no puedes cambiar su 
contenido como haces con la RAM (véase RAM). 

RS-232: Estándar de comunicaciones en serie (definido por la Asociación de Industrias Electró- 
nicas). 


S-100: Es un bus estándar hecho de 100 líneas comunes de comunicación en paralelo. 
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SEÑAL DE REFRESCO: El contenido de las memorias dinámicas deben recibir periódica- 
mente energía para no perder su contenido. La señal que recuerda a la memoria su 
contenido es la señal de refresco. 

SINTAXIS: La sintaxis son las reglas estructuradas que rigen el uso de un lenguaje, ya sea 
humano o de ordenadores. 

SISTEMA OPERATIVO: Programa que forma parte del equipo lógico básico y que le 
permite al procesador manejar los datos y llevar a cabo las demás operaciones. Este es 
el programa más importante de los que tiene el ordenador para controlar las opera- 
ciones, 

SNOBOL: Es un lenguaje de alto nivel, desarrollado por los laboratorios Bell, que tiene gran 
facilidad para la manipulación de cadenas de caracteres. 

SOFTWARE: Son los programas que ejecuta el ordenador. Es la parte lógica del aparato, 
tan importante, si no más, que el Hardware. 

SOFTWARE DE APLICACION: Estos son unos programas desarrollados para realizar 
unas funciones específicas, como, por ejemplo, un procesador de textos. 

SOFTWARE DEL SISTEMA: Programas que hacen labores administrativas o que son de 
ayuda para otros programas, pero que realmente no se usan para conseguir el resulta- 
do final que se busca, sino que sólo son un apoyo. 

STACK: Sistema de almacenamiento de datos en el cual los datos se recuperan en orden 
inverso al de su introducción. También llamado sistema LIFO (Last In, First Out). 

SUBRUTINA: Un bloque de código o programa, que se llama varias veces desde otros 
programas. 


TECLADO RESTRINGIDO: Pequeño teclado con pocas teclas que sirve para dar informa- 
ción numérica al ordenador. Es parecido a una calculadora. 

TIEMPO COMPARTIDO: Se usa este término cuando un gran número de usuarios están 
utilizando el mismo ordenador a la vez, sin que ellos se den cuenta, ya que parece que 
tienen un ordenador para cada uno. 

TIEMPO REAL: Sistema de proceso en el cual el ordenador realiza los cálculos a la vez que 
se desarrolla el proceso que pretende controlar. Ejemplos típicos pueden ser los 
ordenadores de vuelos espaciales, las máquinas de marcianos o los ordenadores de 
control de procesos industriales. 


UNIDAD CENTRAL DE PROCESO (UCP): Es el corazón del ordenador, donde se llevan 
a cabo las operaciones lógicas, aritméticas y de control. 
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No importa el tipo de juegos que prefieras; esta masiva y 
desafiante colección de 85 juegos y programas de Tim 
Hartnell te llevará a una nueva dimensión con tu 

ZX Spectrum. 


Comprueba tus reflejos y tu astucia como: 


En 


“EL LIBRO GIGANTE DE LOS JUEGOS PARA 
ZX SPECTRUM” encontrarás, además, utilidades, 
programas de demostración y un capítulo con 
sugerencias para el diseño de juegos. 


náufrago en una isla de “zombies” caníbales 
“blade runner” perseguido por dos “replicantes” 
piloto en Indianápolis 

comandante del “Enterprise” y guardián galáctico 
jugador de “póker” o de “mandala” 

preso en el laberinto tridimensional 

compositor musical 

constructor de un escudo atómico contra ataques 
nucleares. 
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